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OVERLAYING TECHNIQUES 


INTRODUCTION 


Overlays are used to allow a task to be developed and run if the 


amount 


of memory available or virtual address space for a task is 


insufficient. This module explains the various overlay techniques 
which are available and how to use them. 


OBJECTIVES 


To determine whether to use a disk-resident or 
memory-resident overlay in a given situation 


To construct overlay structures using the overlay 
descriptor language 


To write tasks uSing overlays. 


RESOURCE 


RSX-11M/M-PLUS Task Builder Manual, Chapters 3 and 4 
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CONCEPTS 


A task may be too large to fit in the available memory. This’ may 
happen because it is larger than the total amount of memory on the 
system. More likely, it is because it is larger than the 
partition it is to run in, or the available space within the 
partition. The partition is probably used at the same time by 
other tasks, hence, the available space may be considerably less 
than the full partition. 


For example, a 20K word task may have to fit in 15K words of 
memory. The task can use overlays and load only portions of the 
code at a time and just use 15K words of memory. Typically, the 
pieces which overlay each other contain subroutines. 


As an example, consider a task with main code and two subroutines, 
G and H, which overlay each other. The main code calls subroutine 
G first, causing G's code to be read into memory. Later, the main 
code calls subroutine H, causing H's code to be read into the same 
memory locations, overlaying subroutine G. If the main code later 
calls G, G's code overlays subroutine H. As the task executes, 
overlaying is performed whenever necessary. You can choose to 
have all loading of overlay segments done automatically or you can 
load them manually with specific calls to a loading routine. 


In addition to physical memory limitations, tasks on PDP-1l 
systems have virtual memory limitations. As we learned in the 
last module, a task can use a maximum of 32K words of virtual 
addresses at a time. A task may require, say, 4@K of virtual 
memory, thereby exceeding the 32K virtual addressing limit. 
Overlays loaded from disk would permit this task to run in 32K 
words or less of physical memory, and allow all of the code loaded 
at any given time to be addressed. Therefore, 32K words, or less, 
of code are loaded and addressed at any one time, satisfying the 
virtual address limit. Or, using a special kind of overlay, all 
48K words of code can be loaded into memory, but the task maps 
only 32K words of code at a time. This means that the task stays 
within the virtual addressing limits even though it uses 4@K of 
physical memory. 


These special kinds of overlays are called memory-resident 
overlays. They overlay by remapping rather than by reloading code 
into memory. 
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An overlaid task can have several program segments. A program 
segment consists of part or all of one or more object modules. 
Each of the object modules consists in turn of one or more program 
sections (Psects). There is always a single resident root 
segment. This segment is loaded when the task is first loaded and 
remains loaded and mapped at all times. In addition, there are 
overlay segments which either: 


- reside on disk unless needed and share virtual address 
Space and physical memory. 


- stay in memory once needed and share virtual address space 
only. 


There is one restriction on subroutines in an overlay segment. 
They cannot call subroutines which are located in a segment which 
overlays itself. The code for only one segment or the other is 
available at any one time, and never both. We say that the 
segments must be logically independent. 


There are some drawbacks to uSing overlays. Additional code is 
required to handle the overlay structure and the loading and/or 
mapping of the overlay segments. Also, some execution time is 
required to load and/or map the overlay segments. 


OVERLAY STRUCTURE 


Example 6-1 lists the subroutines (corresponding to overlay 
segments) which each segment calls during the execution of a task. 
In addition, the sizes of the various modules are listed. If the 
task is built without overlays, it is 17K words in size. | 


We can reduce the amount of memory needed to 8K words by using 
overlays. Figure 6-1 shows a likely overlay structure, using a 
memory allocation diagram. This picture represents the overlaying 
or sharing of virtual and/or physical address space in the task. 
Figure 6-2 shows another method for showing the same overlay 
Structure, an overlay tree. It is easier to draw but doesn't 
allow you to estimate the size of the task. As the calculation 
below Figure 6-1 shows, the largest pieces which will ever be 
needed at any one time are PROG, the root, and overlay segments 
SUB1 and B. These total 8K words, so this task can run in 8K 
words of physical memory. 
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Main Segment: PROG 

PROG calls: SUB1, SUB2, SUB3 
SUB1 calls: A, B 

SUB2 calls: none 

SUB3 calls: | C, D, E 
Segment Size 

PROG 4K words 
SUB1 2K words 
SUB2 3K words 
SUB3 1K words 
A 1K words 
B 2K words 
Cc 1K words 
D 2K words 
E 1K words 
TOTAL 17K words 


Example 6-1 Description of An Overlaid Task 
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TK-7764 


Figure 6-1 A Memory Allocation Diagram 


Overlaid Task Size = Size of Root + Sum of lengths of segments 
using the most overlay 
area at any one time 

Size of PROG + Size of SUB1 + Size of B 


4K + 2K + 2K = 8K 
A B Cc D E 
SUB1 SUB2 SUB3 
PROG 


TK-7765 


Figure 6-2 An Overlay Tree 
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STEPS IN PROGRAM DEVELOPMENT USING OVERLAYS 
Use the following steps in developing a task which uses overlays: 
1. Compile each module, producing a .OBJ file for each. 


2. Use the editor to create an overlay descriptor file 
(defines the overlay structure for the Task Builder). 


3. Task-build using the overlay descriptor file as the only 
input file. 


THE OVERLAY DESCRIPTOR LANGUAGE (ODL) 
The overlay descriptor language (ODL) is a fairly simple language 
which is used to define the overlay structure for the Task 
Builder. Statements are placed in a text file which has ae file 
type ‘'ODL' (e.g., EXAMPLE.ODL). It is identified to the Task 
Builder as a special file by using the /OVERLAY_ DESCRIPTION input 
file qualifier (/MP in MCR) in the task-build command line. 
ODL Command Line Format 
The ODL command lines use the following format: 

label: directive argument-—-list ; comment 


where: 


label - a one to six character symbolic, required only ona 
-FCTR directive. 


directive - one of the following 


ROOT - indicates the start of the overlay tree 

- END - indicates the end of input 

-FCTR - allows naming of subtrees 

~-NAME - allows naming a segment and assigning 
attributes 

-PSECT - allows special placement of a global 


program section (Psect) - typically 
used only in special cases in MACRO-11l. 
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argument list - a list of .OBJ files and/or object 
libraries, separated by hyphens or 
commas, and grouped together with 
parentheses. 


comment - a comment to annotate the line 


The separators have the following meaning: 


Parentheses '‘'()' 


- enclose the segments to be overlaid 


The hyphen '‘-' 


-- indicates the concatenation of virtual address space 


The comma ',' 


- separates the segments to be overlaid 
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Examples of ODL: 


1. xX, the root of a task, calls subroutines Y and Z. 


- END 


Explanation: xX is the root segment, Y and Z are each 
overlay segments. Virtual addresses are 
assigned to X first. Starting after that, 
Y and Z begin at the same virtual address. 
Either Y or Z (never both) is loaded and 
mapped uSing those virtual addresses. 


2. Using the information from Example 1, Y calls subroutines U 
and V. 


.ROOT X- (Y-(U,V) ,Z) 
. END 


Explanation: Add to Example 1. U and V are overlay 
segments which overlay each other. After 
the last address for Y, virtual addresses 
begin for U and V. | 
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3. Using Example 1 again, add subroutine A to the root segment. 


Phase cts Sot ae | 
ae 
A 
X 


- ROOT X-A-(Y,Z) 


.- END 


Explanation: 


X and A together make up the root segment. 
Virtual addresses are assigned first to X and 
then to A. After that, Y and Z are assigned 
virtual addresses. 


Using ODL to describe Example 6-1 (Figures 6-1 and 6-2): 


- END 


Explanation: 


PROG is the root segment. SUB1, SUB2, and 
SUB3 overlay each other, beginning at the 
same virtual address. A and B overlay each 
other, beginning after SUB1l. C, D, and E 
overlay each other, beginning after SUB3. 


Using the .FCTR directive to describe Example 6-1: 


- ROOT PROG-(PART1,SUB2, PART2) 
PART1: ~FCTR SUB1-(A,B) 
PART2: -FCTR SUB3-(C,D,E) 
- END 


Explanation: 


Substitute SUB1-(A,B) for PART1 in the first 
line. Substitute SUB3-(C,D,E) for PART2 in 
the first line. 
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TYPES OF OVERLAYS 


There are two types of overlays available, disk-resident overlays 
and memory-resident overlays. In fact, both are loaded from disk. 
The distinction is that disk-resident overlays are always loaded 
from disk every time they are .needed, while memory-resident 
overlays are loaded from disk only the first time they are needed. 
After that, they remain in memory and remapping is used to overlay 
segments as needed. 


Disk-Resident 


Disk-resident overlays are available on all RSX-11M systems. ‘See 
Figure 6-3 for an example of a task with a root segment and three 
disk-resident overlays. On initial load, only the root segment 
MAIN is’ loaded. Overlay segments are loaded from disk whenever 
required. This typically occurs when a subroutine in the overlay 
segment is called. So if the root overlay segment MAIN contains a 
call for subroutine A, for example, segment A is loaded from disk 
prior to the transfer of control to A. If, after the subroutine 
returns control to MAIN, a call is made to subroutine B, segment B 
is loaded into memory right over segment A. If a call is later 
made to subroutine C, segment C is loaded right over segment BB. 
This loading of overlay segments is performed whenever necessary. 
The subroutines may be called in any order and each subroutine may 
be called any number of times in the course of task execution. 


The same starting virtual address is assigned to all three overlay 
segments, A, B, and C, beginning at the next 32(18) word boundary 
after the code for MAIN. So A, B, and C use the same _ virtual 
addresses and are loaded starting at the same physical address. 
One virtual address window maps the entire task, just the code in 
memory is changed when an overlay is loaded. 


This technique is useful when the entire task is too large to fit 
into the space allowed for it. In the example in Figure 6-3, a 
22K word task runs in 15K words of physical memory. Disk-resident 
overlays are the default overlay type. The examples in the 
previous section all produce disk-resident overlays. 
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PHYSICAL 
MEMORY 


VIRTUAL 
MEMORY 
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Figure 6-3 An Example of Disk-Resident Overlays 
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Memory-Resident 


Memory-resident overlays are available only on mapped systems 
which support the memory management directives. See Figure 6-4 
for the same task as in Figure 6-3, this time with memory-resident 
overlays. On initial load, again only the root segment MAIN is 
loaded. The first time an overlay segment is needed it is loaded 
from disk. However, once a segment is loaded it remains in memory 
and is not reloaded from disk. 


If subroutine A is called first, overlay segment A is loaded and 
virtual address window 1 is mapped to A. If, after the subroutine 
returns control to MAIN, a call is made to subroutine 8B, then 
segment B is loaded, but not directly over A. Instead, it is 
loaded into another area of memory, and then virtual address 
window 1 is mapped to B. If a call is later made to subroutine C, 
segment C is loaded into another area of memory, and virtual 
address window 1 is mapped to C. 


The real gain in run-time efficiency is made when an overlay is 


needed again. If another call is made to A, overlay segment A 
does not have to be loaded again from disk. It is already 
memory-resident. Therefore, virtual address window 1 is simply 


remapped from segment C to segment A. Any additional overlaying 
is performed by remapping, with no further loading of overlay 
segments necessary. Again, the subroutines may be called in any 
order and each subroutine may be called any number of times. 


The advantage of this approach is that after the first load, it is 
much faster than disk-resident overlays. However, there is no 
savings in the use of physical memory. In fact, a bit more memory 
is required than with a non-overlaid task. So its main use is for 
overcoming the 32K word virtual address limit when execution time 
efficiency is important. A 44K word task can use memory-resident 
overlays if there is enough memory. available and the time 
necessary for loading disk-resident overlay segments is 
unacceptable. 


The root segment uses one window and each overlay area requires a 
separate window. This means that virtual addresses for each 
overlay segment begin at the starting virtual address for the next 
highest APR, corresponding to a 4K word boundary. Because the 
root segment is 9K(1@), APRs @, 1, and 2 must be used to map the 
root segment. Notice that A, B, and C all begin at virtual 
address 69008, for APR 3. 
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This means that virtual addresses 44990-57777 cannot be used by 
this task. If in fact MAIN were extended, then these virtual 
addresses would be used. Remember, this doesn't mean that any 
physical memory is wasted; but it does mean that careful 
allocation of sizes to the various segments is necessary to avoid 
wasting virtual address space. Note that the maximum number of 
overlay areas with memory-resident overlay is seven since the root 
segment requires one virtual address window and each overlay level 
requires another virtual address window. 


To indicate that you want memory-resident overlays, place an 
exclamation point (!) before an overlay specification. The ‘'!' 
applies only to the first level; the next level may have 
disk-resident overlays or memory-resident overlays again. The 
only restriction on mixing of types is that once a level has 
disk-resident overlays, no higher level may have memory-resident 
overlays. 
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An Example of Memory-Resident Overlays 


Examples of 


1. 


2. 
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-ODL files for memory-resident overlays: 


X, the root of a task, calls subroutines Y and Z. 


Using the information from Example 1, Y calls 


- ROOT X-!(Y,Z) 
- END 


The ! makes the overlays memory-resident. 


and V. 


Explanation of c.: 


All memory-resident overlays: 


- END 
Some memory-resident overlays, some 
overlays: 


- END 


Illegal mixture: 


.ROOT X-(Y-! (U,V) ,Z) 
. END 


subroutines -U 


disk-resident 


This mixture is illegal because the first 


level (Y and 2Z) is disk-resident. The next higher level 
cannot have memory-resident overlays. Therefore, U and V 
cannot be memory-resident. 
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LOADING METHODS 


There are two loading methods, autoload and manual load. With 
autoload, any necessary loading and/or remapping (in the case of 
memory-resident overlays) is done automatically and is transparent 
to the program. With manual load, the overlay segments are loaded 
by specific user calls to a loading routine. Autoload and manual 
load cannot be mixed in the same task. 


Autoload 


When a call is made to a subroutine in an overlay segment, an 
autoload routine takes control before the transfer to the 
subroutine is made. It checks to find out whether the required 
segment is already loaded or loaded and mapped. It performs any 
necessary loading and/or remapping. Following that, the transfer 
to the called subroutine is made. 


Autoload is path loading, meaning that all segments along the path 
to the required overlay segment are loaded. For example, in 
example 2 in the previous section, involving X, Y, U, V, and Z, if 
a call from segment X is made to subroutine U, both Y and U are 
loaded. (However, the auto-load routine checks to see if either Y 
or U is already in memory and if so, the segments are not loaded.) 


Autoload is indicated by an asterisk (*) before an overlay 
specification in an ODL line. An asterisk outside a set of 
parentheses applies to all levels inside the parentheses. 


The advantages of autoload are that it is easy to use and that it 
does not require changes in the source code. For instance, you 
could make changes in the ODL commands for the task but you would 
not have to make any changes in the source code. One disadvantage 
to autoload is that it increases the size of the segments, since 
the autoload code plus its data structures must be included in the 
task. Another disadvantage is that it executes slower than manual 
load, since the autoload code has to check for whether the 
required segment is available or not each time an autoloadable 
segment is called. In addition, autoload must be performed 
synchronously. See Section 4.1 (on Autoload) in the 
RSX-11M/M-PLUS Task Builder Manual for more information about 
autoload. 
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Examples of autoload: 


1. xX, the root of a task, calls subroutines Y and Z. 


With disk-resident overlays: 


~ROOT . X-* (Y,Z) 
.~ END 


With memory-resident overlays: 
- ROOT X-*!(Y,Z) 
- END 


2. Using the information from Example 1, Y calls subroutines 
and V. 


With disk-resident overlays: 


- END 


With memory-resident overlays: 


-ROOT X-*!(Y-! (U,V) ,Z) 
- END 


With some memory resident and some disk resident overlays: 


.ROOT X-*!1(Y-(U,V) ,Z) 
. END 
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Manual Load 


With manual load, you must call the subroutine MNLOAD in the main 
program or any subroutines to load and/or map any required overlay 
segment before calling a Subroutine in that segment. 
Additionally, you must keep track of which segments are currently 
available to avoid a transfer of control to an incorrect segment, 
and to avoid unnecessary calls to the loading subroutine. Manual 
load is not path loading. In example 2 of the previous’ section, 
if xX calls U, it can load just segment U, without loading segment 
Y, unless that is desired. See Section 4.2 (on Manual Load) in 
the RSX-11M/M-PLUS Task Builder Manual for more information on 
Manual load. . 


Manual load is the default loading method. Anytime that a segment 
is not preceeded by an asterisk (*) in the ODL file, manual load 
is used. 


The advantages of manual load are that smaller overlay segments 
result, it is usually more run time efficient, and loading of 
overlay segments can be performed either synchronously Or 
asynchronously. The disadvantages are that the user must keep 
track of things and that it requires special coding in the source 
program. 
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Comparison of a Task With No Overlays, With Disk-Resident Overlays, and 
With Memory-Resident Overlays 


Example 6-1, shown earlier in the module, and repeated below for 
convenience, shows a main program which calls a subroutine, which 
in turn calls another subroutine, etc. Note that the sizes shown 
for the various parts of the task are only approximate. 


Main Segment: PROG 

PROG calls: SUB1, SUB2, SUB3 
SUB1 calls: A, B 

SUB2 calls: none 

SUB3 calls: Cy. DE 
Segment Size (in words) 
PROG 4K 

SUB1L 2K 

SUB2 3K 

SUB3 | ; 1K 

A 1K 

B 2K 

C 1K 

D 2K 

E 1K 

Total 17K 


Example 6-1 Description of an Overlaid Task 
Example 6-2 shows part of the task-build map for the task in 
Example 6-1 when the task is built with no overlays. 


Example 6-3 shows the map when Example 6-1 is built with all 
disk-resident overlays. 


Example 6-4 shows the map when Example 6-1 is built with all 
memory-resident overlays. | 


Example 6-2 does not use overlays; therefore no .ODL file is 


required. Examples 6-3 and 6-4 use overlays; therefore they 
require a .ODL file. These files are shown along with the map. 
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Example 6-2 has a root segment but does not have any overlay 
segments. Note that a single virtual address window maps the 
entire task. The virtual address limits of the task are 990000(8) 
and 195357(8), meaning that these virtual addresses are used to 
reference the task code when it is loaded into memory. The task 
image is 17792(18) words long; hence 17792(18) words of physical 
memory are required to load and run the task. 


Task-build command: 


LINK/MAP PROG,SUB1,A,B,SUB2,SUB3,C,D,E,- 
LB: [1,1] FOROTS/LIBRARY 


Fartition mame ? GEN 

Edentification ? Ol 

Task UIC $ £305%3017 

Stack Limits? 000254 001253 001000 OOS12. 

PRG xfr address: 021254 

Total address windows? 1. 

Task imase size ¢t L7792. words 

Task address limits? 000000 105357 

R-W disk blk limits? 000002 000107 000106 00070. 


KKK ROOT SEGMENT: FROG 


R/W mem limits? 000000 105357 105340 35568. 
Nisk blk limits? 000002 000107 000106 00070, 


Example 6-2 Map File of Example 6-1 Without Overlays 
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Example 6-3 with disk-resident overlays, has a root segment, PROG, 
and eight overlay segments. Note that a single virtual address 
window maps the entire task when just disk overlayS are _ used; 
i.e., when no memory resident overlays are used. The overlay 
description shows the virtual addresses and sizes of the segments. 
On the right side, the segments are listed, lined up by overlay 
level. Segments SUB1, SUB2, and SUB3 overlay each other. They 
all begin at virtual address §22200(8), right after the root 
segment PROG. At various times, virtual addresses starting at 
@22200(8) reference the memory code of the overlay segment which 
is actually loaded in memory at that time. 


Segments A and B overlay each other, beginning with virtual 
address @32234(8), right after SUB1. In a similar way, segments 
Cc, D, and E begin at virtual addresses 926250(8), right after 
SUB3. With disk-resident overlays, only virtual addresses 
989980(8) to @42237(8) are used to reference the task in memory, 
compared to @@@8008(8) to 105357(8) without overlays. This task 
requires only 8888(18) words of memory, compared to 17792(19) 
words with no overlays. | 
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PROG.ODL file: 


~ROOT PROG-L-* (SUB1-L-(A-L,B-L) ,SUB2-L,SUB3-L-(C-L,D-L,E-L) ) 
L: .FACTR LB:[1,1]FOROTS/LIBRARY 
- END 


Task-build command: 
LINK/MAP PROG/OVERLAY_ DESCRIPTION 


Note that LB:[1,1]FOROTS/LIBRARY must be concatenated with each 
segment in the ODL file. In the remaining examples of ODL files, 
the concatenation of the library to each segment will not be shown 
in order to simplify the appearance of the ODL file. 


Fartition name ~ GEN 

Identification ¢ Ol 

Task UIC ¢ £S0Sx3017 

Stack Limits? 000260 001257 001000 OOS12. 

FRG xfr address? 021260 

Totel address windows? 1. 

Task imase size ¢ 8800. words 

Task address limits? 000000 042237 

Re-W disk blk limits? 000002 000120 000117 00079, 


EX463.TSK Overlay descriretion$ 


Example 6-3 Map File 


Kase Tor Lemnath 

Q00000 022177 022200 09344, FROG 

022200 032233 010034 O4124, SUBI 
032234 036237 004004 062052. A 
032234 042237 010004 04100. B 
022200 036203 014004 06148. SUB2 
022200 026247 004050 02088. SUBS 
026250 032253 004004 02052. C 
026250 036253 010004 04100, Ih 
026250 032253 004004 02052. E 


of Example 6-1 With Disk-Resident Overlays 
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Example 6-4, with memory-resident overlays, also has a root 
segment, PROG, and eight overlay segments. Notice that three 
virtual address windows are required for this task, one for. the 
root segment and one for each other overlay level. PROG uses 
virtual addresses 9009800(8) to 923077(8), slightly more than with 
Example 6-3. However, segments SUBl1, SUB2, and SUB3 begin at 
virtual address 49000(8) corresponding to the next available APR, 
APR 2, and not right after PROG. This is necessary because the 
virtual address window must begin with the next APR. Segments A 
and B begin at 69@@0(8), Since the next virtual address window 
begins with APR3. Segments C, D and E also begin at 6@8@88(8) for 
the same reason. With memory-resident overlays, virtual addresses 
$080900(8) to @77777(8) are used and the task requires 18464(19) 
words in memory. The memory-resident overlay version of the task 
requires the most virtual memory and also the most physical memory 
of the three examples. 
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PROG.ODL file: 


.ROOT PROG-*! (SUB1-! (A,B) ,SUB2,SUB3~-! (C,D,;E) ) 
. END 


Task-build command: 


LINK/MAP PROG/OVERLAY_ DESCRIPTION 


Fartition mame ~¢ GEN 

Identification % O1 

Task UIC 3 £C305%3017 

Stack limits? 000320 001317 001000 OOS51i2. 

FRG xfr address? 021320 

Total address windows! 3. 

Task image size ? 18464. words 

Task address limits 000000 077777 

R-W disk blk limits? 000003 000122 000120 00080. 


EXDOVR.TSK Overlay descrirtion? 


Example 6-4 Map File of 


Example 6-1 With Memory-Resident Overlays 
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Base Tor Lenadth 

000000 023077 023100 09792, FROG 

040000 O50077 O10100 041606. SUB 
060000 064077 004100 O2112. A 
060000 070077 O10100 04160. E 
040000 054077 014100 06208. SUB2 
040000 044077 004100 O2112. SUBS 
060000 064077 004100 O2112. C 
0460000 070077 O10100 04160. h 
(060000 064077 004100 O2112. E 
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Table 6-1 refers to Examples 6-2, 6-3, and 6-4. 


Table 6-1 Comparison of Overlaying Methods 


Advantages and 
Method Task Size Windows Disadvantages 


Advantages 


Non-Overlaid 


Disk—Resident 


17792(18) Words 
of Memory 


70(18) Blocks 
on Disk 


185360 (8) 
Virtual 
Addresses Used 


880908(19) Words 
of Memory 


-79(1@) Blocks 


Memor y—-Resident 


on Disk 


42238 (8) 
Virtual 
Addresses Used 


18464(18) Words 
of Memory 


88(18) Blocks 
on Disk 


189988 (8) 
Virtual 
Addresses Used 


Smallest task size on 
disk 

Fastest execution 
Simplest to develop 


Disadvantages : 


Maximum task size 32K 
words 

Task smaller than 32K 
words but too large 
for partition or for 
available space in 
partition 


Advantages 


Uses the smallest 
amount of physical 
memory 

Uses the least amount 
of virtual address 
space 


Disadvantages 


Slowest execution 
time; overlay segments 
loaded from disk when 
needed 


Advantages 


Faster execution than 
disk-resident over- 
lays 

Task resident in 
memory at one time 


Disadvantages 


Uses the most memory 
and disk space 

May waste virtual 
address space 
Requires space in 
memory to hold the 
entire task 
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Table 6-1 gives a comparison of the three overlaying methods. In 
addition to the various sizes, it also lists the advantages and 
disadvantages of each approach. It is also possible to build this 
task with memory-resident overlays for the first level (SUB1,SUB2 
and SUB3) and disk-resident overlays for one or both of the second 
levels (A and B; or C, D and E£). 


LIBRARIES 


Object libraries, when used, must be specified in the .ODL file. 
The one — exception is the default system library 
LB:[1,1]SYSLIB.OLB, which is searched automatically for the root 
and each overlay segment. To allow inclusion of any needed 
libraries, just specify the library with the /LB qualifier (as in 
MCR format for TKB). To force the inclusion of a specific module 
from a library, use the /LB:module form of the /LB qualifier. 


Examples: 


Ve 
- ROOT MAINPG-MYLIB1/LB-LIB- (SUBA, SUBB, CPART) 
CPART: ~FCTR SUBC1-(SUBC2,SUBC3) 
' LIB: -FCTR MYLIB2/LB 
.- END 
Explanation: Include all needed modules from MYLIB1.OLB 
and from MYLIB2.OLB that are referenced in 
the root segment MAINPG. 
26 
- ROOT MAIN-MYLIB1/LB:MOD4—-MYLIB1/LB- (A,B) 
- END 


Explanation: Include the module MOD4 from MYLIB1.OLB. 
In addition, the second MYLIB1/LB with no 
modules listed, causes the inclusion of 
any other modules from MYLIB1.OLB- that 
are referenced in the root segment MAIN. 


Note that if you reference additional library routines 
from other segments, they will not get resolved properly 
unless you specify the library again in each referencing 
overlay segment. . 
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3. Including the FORTRAN OTS Library: 


- ROOT MAIN-LIBRA- (A-LIBRA,B-LIBRA) 
LIBRA: -FCTR LB: [1,1] FOROTS/LB or F4POTS/LB 
- END é 


Include needed modules from FOROTS.OLB (or F4POTS.OLB) in the root 
segment, in segment A, and in segment B. Notice that you should 
specify the library in each segment which might need it. 
Otherwise, if segment A needs a module not already included for 
the root segment, the library is not searched again for module A 
unless it is specified again in overlay segment A. 


Note that in an installation which makes heavy use of FORTRAN, the 
appropriate FORTRAN OTS library may have been included in SYSLIB 
making it unnecessary to include the OTS library in the TKB 
command. Check with your system manager to see if the OTS library 
is included in SYSLIB. 


Example of Duplicate Code in Overlays 


In the above example with a root and two overlay segments, A _ and 
B, it is possible that duplicate code will be forced into the two 
segments. If A and B both need module X from the library, and the 
root does not need xX, then a copy of X would be placed in both 
segment A and in segment B. This adds to the size of segments A 
and B but keeps the size of the root smaller. If the size of the 
root is critical, you may be willing to have the duplicate code 
appear in A and B. If the size of the root is not critical, force 
X to be in the root by the following ODL statement: 


-ROOT MAIN-LB: [1,1] FOROTS/LB: X-LIB- (A-LIB,B-LIB) | 
LIB: -FCTR LB: [1,1] FOROTS/LB 
- END 


In general, it is good practice to include a library reference in 
each segment of the task. If you are concerned with the 
possibility of duplicate code, you can use the trial and error 
approach wherein you specify the library only in the root and then. 
note the unresolved symbols that occur. Once you determine from 
the TKB map which modules are needed in which segments, you can 
then determine if you want to place certain modules in the root or 
if you are willing to have duplicate code in various segments. 
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Duplicate code can also be included from SYSLIB, the default 
library. If you wish to use the trial and error method on modules 
from SYSLIB, use the /LONG qualifier in the LINK command (/MA in 
TKB format). This qualifier causes the Task Builder to list 
modules included from SYSLIB in the map file. 


Note that in the previous example, if X had been required in the 
root, duplicate code in the overlay segments would not be 
generated; all references to X would be resolved via the root. 

An Overlay Example 

Example 6-5 is a simple task with a root segment ROOT and 2 
overlay segments, P and Q. During the execution of the task, the 


following calling sequence is used: 


ROOT calls P 
ROOT calls Q 


Figure 6-5 shows an overlay tree and a memory allocation diagram 
for this task. 


The code for Example 6-5 is separated into three different 
modules, one for each segment. The source file for the root 
segment ROOT contains the startup code and controls the overlay 


loading by calls to the subroutines. The source file for each 
overlay segment, P and Q, contains the subroutine code. 


OVERLAY TREE 


MEMORY ALLOCATION DIAGRAM 


ROOT ROOT 


TK-7755 


Figure 6-5 Task with Two Overlay Segments 
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Steps in Program Development for Example 6-5 
1. ‘Compile each module. 
>FORTRAN/LIST ROOT 


>FORTRAN/LIST P 
>FORTRAN/LIST Q 


2. Use the editor to create the overlay descriptor 
FEXDOVR.ODL for disk-resident overlays. 
~ROOT ROOT-LIB-* (P-LIB,Q-LIB) 
LIB; -FCTR LB: [1,1] FOROTS/LB 
- END 


3. Task-build using the .ODL file as the input file. 


>LINK/MAP EXDOVR/OVERLAY_DESCRIPTION 


LEARNING ACTIVITY 
1. To build the above task with 
memory-resident overlays, how would you 
modify the .ODL file? 


2. To build the above task without overlays, 
what task-build command would you use? 
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The following notes are keyed to Example 6-5. 
@ on initial load only the root segment ROOT is loaded. 


6 With autoload the call to subroutine P causes the autoload 
routine to load overlay segment P from disk and then 
transfer control to the subroutine. 


@ Subroutine P displays a message and returns. 


(4 | The call to subroutine Q causes the autoload routine to 
load overlay segment Q from disk over segment P and then 
transfer control to the subroutine. 


5 ] Subroutine Q displays a message and returns. 


If another call were added to subroutine Q, the autoload routine 
would check and see that overlay segment Q is already loaded and 
would then just transfer control to Q. If another call were added 
to subroutine P, the autoload routine would check and see that 
overlay segment P is not loaded. Hence, it would load segment P 
over segment Q and then transfer control. 
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FROGRAM ROOT 
C FILE ROOT.FTN 
C This task calls each of the subroutines F ANT Q 


CGC Task-huild instructions? Use FEXIOVR.ODL as the ineut 
C file. 


WRITE (S950> ! LTisrlay messase 
$0 FORMAT ¢% THE ROOT SEGMENT IS NOW RUNNING AND 
LWILL CALL P. 4) 
CALL F 
WRITE (S150) ! Tliselay messasde 
150 FORMAT ¢/ THE ROOT SEGMENT WILL NOW CALL Q.%) 
CALL Q ia 
WRITE ¢(S3y»230) ! flisrelay messase 
250 FORMAT ¢°’ THE ROOT SEGMENT WILL NOW EXIT. %) 
CALL EXIT 1 Exit 
END 


SUBROUTINE F 
{ 
C FILE FLFTN 
Cc 
C This subroutine diselays 8s message and then returns 
Cc 


WRITE CS s50) i Tliselay message 
50 FORMAT ¢€’ SEGMENT F IS NOW LOATED. SUBROUTINE F 
11S EXECUTING. ‘> 
RE TURN ! Return 
END 


SUBROUTINE Q 
C 
C FILE Q.FTN 
c 
C This subroutine disrelays a messase and then returns 
C 


WRITE CS sS0) ! [Tliselay messase 
$0 FORMAT ¢€¢ SEGMENT Q IS NOW LOADED. SUBROUTINE Q 
11S EXECUTING. *) 
RETURN ! Return 
END 


Rum Session 


“RUN EXDOVR 

THE MAIN SEGMENT IS RUNNING AND WILL CALL P. 
SEGMENT F IS NOW LOADED. SUBROUTINE F IS EXECUTING. 
THE MAIN SEGMENT WILL NOW CALL Q. | 

SEGMENT Q IS NOW LOADED. SUBROUTINE Q IS EXECUTING. 
THE MAIN SEGMENT WILL NOW EXIT. 


Example 6-5 A Task with Two Overlay Segments 
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Changing Example 6-5 to Manual Load © 


To change the previous example to manual load, the source code in 
ROOT must be modified to include the calls to subroutine MNLOAD 
which will cause the loading of the segments. The ODL file must 
also be modified to remove the autoload indicator (*). The files 
MLROOT.FTN and MLEXDOVR.ODL on the tape provided with this course 
are modifications of ROOT.FTN and EXDOVR.ODL. Check UFD [29@2,3] 
for these files. See your course administrator if you have 
difficulty finding these files. 


GLOBAL SYMBOLS IN OVERLAID TASKS 


When the Task Builder builds a task, each reference to a 
Subroutine is an unresolved symbol reference which must ultimately 
be resolved by finding a corresponding subroutine or by finding an 
entry in the system library. (Each subroutine generates a global 
symbol definition which can be used to resolve an_ unresolved 
global reference symbol.) If no such subroutine or entry in the 
system library is found, the global symbol is unresolved. 


The scope of a global symbol is controlled by the overlay 
structure. A module can only refer to a global symbol defined on 
a path which passes through it. Thus, in Figure 6-6, the 
reference to global symbol R-.(global symbol and subroutine are 
used synonymously in this discussion) in segment Al is undefined 
'because R is not defined'in either A@ or CNTRL. A@ and CNTRL form 
the only path passing through Al. The definition in A2 can't be 
used because Al and A2 overlay one another. 


In a single segment task with no overlays the same global symbol 
cannot be defined more than once, or it is multiply defined. With 
the rules governing global symbols in overlays, however, the same 
name can be used for two different global symbols as long as they 
follow these two restrictions: 


1. They must be defined on separate paths. Each reference is 
resolved to the definition on its own path. Only if the 
same symbol is defined more than once on the same path, is 
it multiply defined. 


2. The two symbols must not be referenced from a _ segment 
closer to the root which has paths through both segments. 
An example is a root segment which references a subroutine 
N. If the root segment has two overlay segments U and V. 
and each one defines the subroutine N, the Task Builder 
can't tell which subroutine N to use. Therefore, the 
reference is ambiguous, since there are several possible 
ways to resolve the reference. 
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Figure 6-6 sShowS an example overlay tree with a number of global 


symbol definitions. The various references are resolved as 
follows: 
Q is defined in A@ and Bd Reference in A22 resolved in A@ 


Reference in Al resolved in AQ@ 
Reference in Bl resolved in B@ 


R is defined in A2 Reference in A22 resolved to A2 
Reference in Al undefined 
Reference in CNTRL resolved to A2 
(if autoload, through an autoload 
vector) 


S is defined in A@ and Bd Reference in Al resolved to A@ 
Reference in A21 resolved to Ag 
Reference in A22 resolved to A@ 
Reference in Bl resolved to Bg 
Reference in B2 resolved to Bg 
Reference in CNTRL ambiguous 


T is defined in A® and A21 ~~ Symbol multiply defined 
A2t A22 
T(DEF) R(REF) 
S(REF) Q(REF) 
S(REF) 

Al A2 Bi B2 
Q(REF) | R(DEF) Q(REF) | S(REF) 
R(REF) S(REF) 

S(REF) 
AQ BO c 
Q(DEF) Q(DEF) 
S(DEF) S(DEF) 
T(DEF) 


CNTRL 


S(REF) 
R(REF) 
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Figure 6-6 Resolution of Global Symbols 
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Data References in Overlays 


Data local to an overlay segment is only available while the 
segment is loaded. When the segment is overlaid by another 
segment, any updating of local data that had been made while the 
segment was loaded will be lost. The next time the same segment 
is loaded from the disk, the original data values will be brought 
into memory. For. this reason it is strongly recommended that data 
required by more than one segment be placed in the root. 


If you wish to share data between overlay segments, you must’ use 
FORTRAN COMMON or pass arguments in the CALL (discussed below). 
Note that if you want to share data between overlay segments A and 
B, and if updating of the data can be done by either segment, it 
is not sufficient to simply place the COMMON in A and B; it must 
also be placed in the root segment. 


By placing the same COMMON in the root, you are assured that A and 
B will always’ be referring to the same data in the COMMON since 
the root segment is always loaded. In FORTRAN-77 another way to 
place a COMMON in the root is to use the FORTRAN SAVE common-name 
Statement in one of the segments. This will force the 
task-builder to place the named common in the root. The .PSECT 
ODL statement can also be used to force the placement of a common 
in the root segment. 


Another way of sharing small amounts of data between two overlays 
is to have the data passed from the root to each overlay as an 
argument to the CALL. If the segment changes one of the data 
values passed as an argument, it will then be changed in the root 
segment. The changed value can then be passed to the next 
overlay, etc. 


Example 6-6 1S a more complex example of the use of overlays. The 
program calling Sequence is as follows: 


MAIN calls A 
A calls JOB1 or JOB2 (in module JOBXx) 
MAIN calls B 
Loop through three time 
MAIN calls A 
A calls JOB1 or JOB2 
End of loop 
MAIN calls TOTAL (in the root segment) 
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The following notes are keyed to Example 6-6. 


Task-build instructions. 


COMMON OTHER is defined in the root segment MAIN, and is 
referred to in overlay A and in overlays JOB1l and JOBXxX. 
The entire allocation of space for OTHER is in MAIN; no 
Space is reserved for OTHER in the overlays. | 


The use of the COMMON OTHER by the MAIN segemnt and_ the 
the overlay segments allows the overlays to access data 
provided by MAIN and to pass a result back to MAIN via the 
fourth argument in OTHER. This argument is called 
variously ANS in MAIN, ARG(4) in overlay A, SUM in overlay 
JOB1 and ANS in JOBXX. 


COMMON TOTCOM is also defined in MAIN and is referenced in 


overlays JOBl and JOBXX. Allocation for TOTCOM is in 
MAIN. Subroutine TOTAL displays the grand total, which 
has been accumulated in TOTCOM in variable TOT, but the 
subroutine does not refer to COMMON MTOTCOM. Since MAIN 
passes the argument TOT to subroutine TOTAL, the 


subroutine does not have to use TOTCOM. This illustrates 


how shared data may be passed between overlay segments via 
the argument list. 


Note that subroutine A calls JOB2, which is the name of 
the subroutine, and that the ODL file uses JOBXX which is 
the file name. File names are always used in ODL; not 
subroutine names. In general, file names and subroutine 
names should be the same simply to avoid confusion. 


Note that neither COMMON OTHER or COMMON TOTCOM appear in 
segment B since the segment does not refer to any 
variables in either COMMON. 


Argument TOT is is COMMON TOTCOM. Since the argument is 


passed to subroutine TOTAL, TOTAL does not need a 
reference to COMMON TOTCOM. 
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FROGRAM MAIN 
FILE MAIN.FTN 


This Frogram Frints @ messase and then calls subroutine 
A. Subroutine A asks whether to rerform Job 1 or Jiob 2.F 
It then calls either subroutine JOBI1 or JOB2 which 
rerforms the oreration and disrlays the results. MAIN 
then calls subroutine B which disrlays a messasde. MAIN 
then calls subroutine A 3 more timesy keering @ srand 
total of the orerations. Finally» it disrlayus the 

grand total and exits, 


Use FMRMAIN.ODL as the inrut 


TYFE X» “THE MAIN 


© cart Tora. <tor 


TYPE X»’THE MAIN 
CALL EXIT 


END 


Task-build instructions? 
CG file. 
Es 
COMPLEX DUMMY C1024) ! Leave srace to make 
Cc | segment larger 
6 COMMON /OTHER/OF 1 OF sOP 29 ANS 
INTEGER OF 1*0Fs0F29ANS 
QATA OF L:OP2/592/7 
C 
© COMMON /TOTCOM/TOT 
INTEGER TOT ! Total 
G 
TYPE X»’THE MAIN SEGMENT IS RUNNING AND WILL 
ICALL A’ 
CALL A i Call subroutine A 
TYPE xX» “THE MAIN SEGMENT WILL NOW CALL B’ 
@ cart » ! Call subroutine B 
nO 10% T=1+s3 
TYFE X» “THE MAIN SEGMENT WILL NOW CALL A’ 
ANS = 0 ! Clear answer in case 
C ! of no oreration 
10 CALL A ! Call subroutine A 


SEGMENT WILL CALL TOTAL’ 

! Call routine to 

06 6©nddiselay grand total 
SEGMENT WILL NOW EXIT’ 

! EXIT 


Complex Example Using Overlays 
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SUBROUTINE A 
FILE AsFTN 


This subroutine disrlays 8 messase and then asks which 
of two Jobs to do. It calls the arrrorriate subroutine 
to do the Job» disrlays the results: and then returns 
to the main Frrogram 


©@ conmon /oTHER/ARG 
INTEGER ARG(4) 
INTEGER BUFF 


TYFE 1 

FORMAT ¢(T8»’SEGMENT A IS NOW LOADED. SUBROUTINE 
1 A IS EXECUTING. %) 

TYFE 2 

FORMAT ¢€°$’sT8s‘°TO YOU WANT TO 00 JOB 1 OR JOR 2 
1? 7) 

ACCEFT 3» BUFF 

FORMAT (16) 

IF (BUFF.NE.1) GOTO 10 ! Is it Jiob 17 : 
CALL JOBI ! Call subr to do Job 1 
GOTO 20 i! Branch to disrlay code 
IF (BUFF.NE.2) GOTO 1000! Is it VJioh 2? 

CALL JOBR2 i Call subr to do ioh 2 
TYFE 21%ARG 

FORMAT (T89T291X»sA2»9T29’ = %yITS/) 

GOTO 2000 


1000 TYPE 1001 
1001 FORMAT ¢(T8»’NO SUCH JOR. SORRY. 7%) 
2000 RETURN i Return 


ENT 


Example 6-6 Complex Example Using Overlays 
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SUBROUTINE JOR 
FILE JOBL.+FTN 


This subroutine rerforms an addition oreration. The 
orerands,y oreratory and sum are held in one common 
blocky, and the totel in another. 


2} COMMON /OTHER/NUM1 » OPRATR » NUM2 » SUM 
INTEGER NUM1»OFRATR »NUM2 » SUM 

@ COMMON /TOTCOM/TOT 
INTEGER TOT 


INTEGER DUMMYC1024) |! Leave srace to make 
I module larger 


TYPE 1 |! fliselay messede 
FORMAT (Tiés “SEGMENT JOB1 IS NOW LOADED. 7%» 
17»T1é6é’SUBROUTINE JOBI IS EXECUTING. %)> 
SUM = NUM1 + NUM2 ! Calculate sium 
TOT = TOT + SUM ! Add to grand total 
OF RATR = 7+7 ! Move orerand for 

[06 6guteut disrlay 
RETURN 
ENT 


© susBROUTINE JOR2 


FILE JOBXX.FTN 


This subroutine rerforms a multirlication oreration. 
The orerandsy orerators and crroduct are held in one 


> cammon blocks the runmnins totel in another. 


6 COMMON /OTHER/OF 1 » OF RATRs OP 2 ANS 
INTEGER OF 1» OPRATR»OP2»ANS 

@ COMMON /TOTCOM/TOT 
INTEGER TOT 


REAL QUMMYC1024) ! Leave srace to make 
! module larger 
TYFE J ! Tlisrelay message 


FORMAT (Tié»’SEGMENT JOBXX IS NOW LOADEN, %» 
1/7vT1é»’SUBROUTINE JOR2 IS EXECUTING. *) 


ANS = OF1 * OF? ! Calculate rroduct 
TOT = TOT + ANS ! Add this to grand total 
OPRATR = °x’ ! Move orerand for 
0 6oguteut disrelay 
RETURN 
ENT 
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@ SUBROUTINE kK 


C FILE &.FTN 


C This subroutine diselays a messade and returns 


TYFE 1 

FORMAT (T8»9’SEGMENT & IS NOW LOANED. SUBROUTINE 
1B IS EXECUTING. ’) 

RE TURN 

ENM 


6 SUBROUTINE TOTAL (TOT) 


C FILE TOTAL.FTN 


C Subroutine to diselay grand total. The grand total 
(@ location is rassed as 2 subroutine arsument 


Run 


INTEGER TOT 

TYPE 1» TOT 

FORMAT (% THE GRAND TOTAL IS ‘’sI39’%.’/) 
RETURN 

ENT! 


Session 


*RUN MRMAIN 


THE 


THE 


THE 


THE 


THE 
THE 


THE 


MAIN SEGMENT IS RUNNING AND WILL CALL A 
SEGMENT A IS NOW LOADED. SUBROUTINE A IS EXECUTING. 
nO YOU WANT TO hO JOR 1 OR JOB 2? 1 
SEGMENT JOB1 IS NOW LOADED. 
SUBROUTINE JOBI IS EXECUTING. 


See 7 


MAIN SEGMENT WILL NOW CALL B 
SEGMENT B IS NOW LOADED. SUBROUTINE B IS EXECUTING. 
MAIN SEGMENT WILL NOW CALL A 
SEGMENT A IS NOW LOADER. SUBROUTINE A IS EXECUTING. 
nO YOU WANT TO 00 JOR 1 OR JOR 27 2 
SEGMENT JOBXX IS NOW LOANED. 
SUBROUTINE JOB2 IS EXECUTING. 
3 kX 2 = 10 


MAIN SEGMENT WILL NOW CALL A 
SEGMENT A ITS NOW LOADED. SUBROUTINE A IS EXECUTING. 
DO YOU WANT TO DO JOB 1 OR JOR 2? 2 
SEGMENT JOBXX IS NOW LOADED. 
SUBROUTINE JOB2 IS EXECUTING. 
o xX 2 = 10 


MAIN SEGMENT WILL NOW CALL A 
SEGMENT A IS NOW LOADED. SUBROUTINE A IS EXECUTING. 
DO YOU WANT TO O JOB 1 OR JOR 2? 2 
SEGMENT JOBi IS NOW LOADED, 
SUBROUTINE JOBL IS EXECUTING. 
o+¢ 2 = 7 


MAIN SEGMENT WILL CALL TOTAL 
GRAND TOTAL IS 34. 


MAIN SEGMENT WILL NOW EXIT 
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LEARNING ACTIVITY (Using Example 6-6) 


1. Draw an overlay’ tree or a memory 
allocation diagram. Since the questions 
below assume a particular overlay 
structure, check your answer before doing 
questions 2 through 4. 


2. What .ODL file would you use for autoload 
and all disk-resident overlays? 


3. What .ODL file would you use for autoload 
and all memory-resident overlays? 


4. What .ODL file would you use for autoload 
and A and B memory-resident and JOB1 and 
JOBXX disk-resident? 


CO-TREES 


Sometimes there are Subroutines which must be callable from 
several or all different overlay segments in a task. One solution 
is to place the subroutines in the root. Since they are always 
loaded, they are then available from the root and all overlay 
segments. If this causes the task to become too large and_ the 
subroutines are logically independent (don't call each other), 
another solution is available. You can set up a Separate overlay 
area and place the subroutines in it so that they overlay each 
other. 


For example, Figure 6-7 shows an overlaid task with subroutines xX 
and Y in the root. They are placed there so that the root and 
every other segment can call them. If this makes the task _ too 
large, set up a separate overlay area and place X and Y in it so 
they overlay each other (Figure 6-8). xX and Y are in a_ separate 
overlay area, therefore, they can overlay each other and still be 
called from the root and every other segment in the task. 
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The two overlay areas, the main one and the separate one for. the 
extra subroutines, are defined by a multiple tree structure. The 
tree for the main code is called the main tree and the other one 
is called a co-tree. The co-tree root may contain code but it 
does not have to. In the example in Figure 6-8, the root of the 
co-tree is null (or is a dummy root) and contains no code. A root 
is needed to set up the overlay structure. Only the root of the 
main tree is loaded on initial load. The co-tree roots are loaded 
when they are first needed and remain loaded after that. Other 
than that, loading of overlay segments works just like a 
Single-tree overlay structure. 


The .ODL files are listed above the files for the task without 
co-trees and with co-trees. The co-trees are separated in the 
-ODL file by a comma. With autoload, an asterisk (*) should be 
specified on the co-tree roots as well as in the normal places. 
This is necessary because the co-tree roots are loaded like 
overlay segments the first time they are needed. Also, note that 
the .NAME directive is used to specify that CNTRL2 is just a name 
for the null root segment of the co-tree. 


For additional information on co-trees and an example, see Section 
3.5 (on Multiple-Tree Structures) in the RSX-11M/M-PLUS Task 
Builder Manual. In particular, note the use of the /NOFU or /FU 
Switch used with TKB. 
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~ODL File with no co-trees: ; 
~ROOT CNTRL-X-Y-* (A@, (Al,A2) ,B9-(B1,B2) ) 
- END 


Al A2 B1 B2 
AO BO 
bg 
I 
tT 
CNTRL 


TK-8635 


Figure 6-7 Task Without Co-Trees 
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~ODL File with Co-Trees 


NAME CNTRL2 
~ROOT CNTRL-* (A@-(Al1,A2) ,B@-(B1,B2)), *CNTRL2- *(X,Y) 
- END 


The segment CNTRL2 is a dummy root used for loading purposes only. 


Al A2 B1 B2 
AO BO X Y 
CNTRL CNTRL2 


NULL ROOT CNTRL2 


TK-7768 


Figure 6-8 Use of Co-Trees 
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Now do the tests/exercises for this module in the Tests/Exercises 
book. ‘They are all lab problems. Check your answers against the 


solutions provided, either 


If you think that you have 
administrator to record 
Plotter. You will then be 


If you think that you have 
to this module for further 


in that book or in on-line files. 
mastered the material, ask your course 
your progress in your Personal Progress 
ready to begin a new module. 


not yet mastered the material, return 
study. 
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STATIC REGIONS 


INTRODUCTION 


address space in a task is composed of regions. There are 


basic types of regions: task regions, static regions, and 


regions. Task regions, into which tasks are loaded, are 
using information set up by the Task Builder. Static and 
regions are generally used to share code or data among 
tasks. Static regions are created using the Task Builder; 
regions are created during task execution using executive 


directives. 


This module discusses static regions. You can use these static 


regions 


co: 


Create memory areas containing code which is shared among 
tasks 


Create memory-resident data areas which can be used _ for 


communication between tasks or successive invocations of 
the same task. 


OBJECTIVES 


To create and use a resident common region 
To create and use a resident library 


To determine whether a position independent or an absolute 
shared region should be used in a given situation. 


RESOURCE 


RSX-11M/M-PLUS Task Builder Manual, Chapter 5 
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TYPES OF STATIC REGIONS 


Static regions, also called shared regions, are areas of memory 
which are shared among tasks. They allow tasks to share data or 
code with very little overhead. Unlike send and receive 
directives, no executive directives are needed and the area's size 
is limited only by virtual address and possibly physical memory 
limitations. The virtual addressing limit must be met for both 
the region itself and for any tasks which use the region. For a 
task uSing the region, the virtual addressing limit applies to the 
total of all regions used plus the task's code. 


Static regions also offer very quick access, since the area is 
loaded before the tasks which use it are run. Once loaded, it is 
available directly in memory. Therefore, it offers much faster 
access than disk-resident data. 


Table 7-1 summarizes the types of shared regions available on an 
RSX-11M system. A resident common contains data. The data can be 
accessed by several different tasks, each with read only access or 
with read/write access. 


A resident library contains reentrant subroutines, which can _ be 
called by several different tasks. A single copy of each 
Subroutine can be shared, thus’ reducing’ the total memory 
requirements of the tasks. The term resident is used because the 
shared region is task-built, installed, and ‘loaded into memory 
separately from the tasks which access it. 


A third type of shared region is a device common, a special type 
of resident common. It occupies physical addresses on the I/0 
page, which correspond to I/O device registers instead of physical 
memory. Therefore, this kind of common allows a task to reference 
an I/O device directly. Unlike other resident commons, a device 
common has no true contents because it has no physical memory 
associated with it. 
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Table 7-1 Types of Static Regions 
Available on RSX-11M 


Type of Region Contents Advantages 
Resident Common ‘Data accessed Serves as com- 
by two or more munications link 
tasks Serves aS memory- 
resident data base 
Resident Library Reentrant routines, One copy of common 
used by two or more routines shared in 
tasks (must be wri- »~ memory 


ten in MACRO-11 but 
can be used in a 


FORTRAN CALL) 


Device Common . No true "contents" Nonprivileged task 
Region iS a range can directly access 
of phySical addresses an I/O device with- 
within I/O page out being mapped 


MEMORY ALLOCATION 


Memory is allocated independently 
individual tasks which use it. 

the region referencing tasks. On 
region must reside in a dedicated 
of the partition must be the same 


to the Executive 


to the shared region and to’ the 
We will call the tasks which use 
an RSX-11M system, the shared 
common type partition. The name 
as the name of the region. The 


partition can be created at SYSGEN time or later by the system 


manager or. by a privileged user. 


Once the region is installed and 


loaded into the partition, it cannot be checkpointed. 
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MAPPING 


Shared regions can be written and task-built as either position 
independent regions or as absolute regions. On a mapped system, 
position independent regions can be placed anywhere in a 
referencing task's virtual address space. This means that the 
virtual addresses used to map to the region can correspond to any 
available APR. 


Figure 7-1 shows a position independent region POSIND and_ three 
referencing tasks. The region is loaded into memory into the 
partition POSIND; the partition name must be the same as the name 
of the region. Recall that a virtual address window for mapping 
must begin with a base address for an APR on a 4K word boundary. 
Because the region is 5K words in length and each APR can only map 
at most 4K words, two APRS are needed to map the region. 


TASK A maps the shared region using APRS 6 and 7, starting at 
virtual address 149900(8). It could in fact use APRs 5 and 6, 
beginning at virtual address 1298900(8); or APRs 4 and =“35, 
beginning at virtual address 199000 (8). 


TASK B maps the shared region at the first available APR above the 
task code, using APRS 2 and 3, beginning at virtual address 
49000(8). It could use APRs 3 and 4, 4 and 5, 5 and 6, or 6 and 7 
as well. 


Task C maps the shared region using APRs 6 and 7, starting with 
virtual address 149@00(8). There is no other possible way for 
task C to map the shared region because APR 6 is the first 
available APR. 


When you task-build a referencing task, you can specify which APR 
to use in mapping the region. If you do not specify an APR, the 
Task Builder selects the highest set of available APRs. When task 
A and task C were built, either the user did not specify an APR, 
or APR 6 was specified. When task B was built, the user specified 
APR 2. 


An absolute shared region has its virtual addresses fixed when it 


is task-built. All tasks which reference it must use those 
virtual addresses, and the corresponding APRs, to map to the 
region. Figure 7-2 shows another’ region, ABSOLU, and three 


referencing tasks A, B and C. The shared region ABSOLU was built 
to use virtual addresses 129900(8) through 147777(8) (6K words) 
with APRs 5 and 6. All referencing tasks must map to the region 
uSing these APRs. Therefore, task A and task B can both map to 
the region, since APRs 5 and 6 are available. Task C, on_ the 
other hand, cannot reference ABSOLU, since APR 5 is already used 
by its task code. 
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Figure 7-1 Tasks Using a Position Independent Shared Region 
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Figure 7-2 Tasks Using an Absolute Shared Region 
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Because of the added flexibility of a position independent region, 
i.,e., any APR can be used to map the region, it might seem that 
there is no reaSon to ever use an absolute region with its 
attendant APR restrictions. However, there are coding 
restrictions for position independent regions which require’ the 
use of highly specialized coding techniques. Because of these 
restrictions, the decision to create a position independent or an 
absolute region is usually based on these coding restrictions 
rather than on flexibilty alone. : 


In general, resident commons, containing data, are created 
position independent and resident libraries, containing code, are 
created absolute. 


Figure 7-3 shows the program development process for creating a 
shared region and ae referencing task. Specific steps for each 
process are discussed later in this module. Compile and 
task-build the shared region separate from the referencing task, 
and before task-building the referencing task. 


Since it is not an executable task, certain task-build switches 
are used to create a task image with no header and no stack. An 
additional file, called a symbol definition file, is also created 
at task-build time. This file contains information about the 
symbols defined in the region which the Task Builder will use when 
it builds the referencing task to set up the linkage to the 
region. 


After task-building the shared region, task-build the referencing 
task. It can be written and compiled earlier, if desired. The 
name of the region is specified to the Task Builder so that it can 
access the symbol definition file and set up the linkage to the 
shared region. The shared region must be installed (causing it to 
be loaded into memory as well) before any referencing task is run. 


REFERENCES TO A SHARED REGION 


The following kinds of references are made to a shared region by a 
referencing task: 


e The task retrieves data from or stores data in a resident 
common. FORTRAN COMMON is used for this purpose. 


@e Subroutine call to a subroutine defined in a_ shared 
region. 
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PROCEDURE FOR CREATING SHARED REGIONS AND REFERENCING TASKS 


Creating a Resident Common 


1. 


Code the shared region. Typically consists of a COMMON 
statement and DATA Statements which allow you _ to 
initialize the COMMON. 
Choose position independent for a resident common. 

Compile the shared region. 

If not already done, create the common type partition. 

e Name must be the same as the name of the region. 


e Best done when the system is SYSGENed. 


e Use the SET PARTITION (SET/MAIN in MCR) command to 
create a partition. 


e Use the SET NOPARTITION (SET/NOMAIN in MCR) command to 
eliminate a partition. 


e Examples: 


>SET PARTITION:MYCOM/BASE: 7114/SIZE: 200/COMMON 


Creates the common type partition MYCOM with base 
physical address 711400@(8) and size 20900(8) bytes. 
no other partition may use this space at the same 
time. 


>SET NOPARTITION :MYCOM 
Eliminates the partition MYCOM. 
NOTE 
Before you create or eliminate any partitions on 


your system, check with your system manager to 
find out what area of memory you may use. 
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5. Task-build the shared region. 
e Symbol definition file (.STB) required. 


e Build position independent’ and /SHAREABLE: COMMON. 
This causes the Task Builder to include the COMMON 
names in the .STB file so that references to them in 
the referencing task are properly resolved. The 
/SHAREABLE: LIBRARY switch used in task-building 
resident libraries causes the COMMON (Psect for MACRO) 
names to be omitted from the .STB file. This avoids 
task-builder errors in the case of unintentional 
duplication of Psect names. 


e Use required switches and options (See Table 7-2). 


6. Install the shared region in the common type partition 
before running any referencing task. 


e Not required before task-building the referencing 
tasks. 


e Use the INSTALL (INS in MCR) command to install the 
region. 


- This command also loads the region into memory. 
This is unlike an executable task, which is 
usually loaded into memory only when it is 
activated. 


e There is no command to remove a region. It is removed 


by either installing another region or eliminating the 
partition. 


242 


STATIC REGIONS 


SHARED . TASK REFERENCING 
REGION SHARED REGION 


CREATE 
SOURCE CODE 


CREATE 
SOURCE CODE 


SHARED 
REGION 
SOURCE 
FILE 


ASSEMBLE 
OR COMPILE 


ASSEMBLE 
OR COMPILE 


SHARED 
REGION 
OBJECT 

FILE 


LIBRARY TASK oy MBOF TASK 


FILE(S) BUILD aa BUILD 


SHARED 
REGION 
“TASK IMAGE’ 
FILE 


INSTALL . RUN 
SHARED TASK 
REGION 


TK-7770 


Figure 7-3 Program Development for Shared Regions 
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The required switches and options in Table 7-2 are needed _ for 
various reasons. No header or stack is needed because this is not 
an executable task. The referencing tasks each have their own 
header and stack. The symbol table definition file is needed to 
allow the Task Builder to link referencing tasks to the region. 
The partition name specifies the partition into which the region 
will be loaded. 


For an absolute region you must specify a base address. If you 
specify a nonzero length, that value is used as a maximum, for 
length checking. A task-builder error results if the length. of 
the region is longer than the length specified. If you specify a 
length of @, the region is set up with the size needed for the 
code, so long as it doesn't exceed the normal 32K word virtual 
addressing limit. : 


Table 7-2 Required Switches and Options for Building 
a Shared Region 


Switch/Option | 
in DCL (MCR) Effect Defaults Notes . 
/NOHEADER No task / HEADER 
(/-HD) header 
/SYMBOL TABLE Create a No .STB Needed for 
(Specify third .STB file file task-building 
output file) referencing task 
STACK=@ No space STACK=256 (19) 
for stack words 
in .TSK file 
PAR= Specify PAR=GEN Partition name 
par[:base:len] partition If base and must be same as 
name (set length not name of the .TSK 
base virtual Specified, and .STB files 
address - information 
required if taken from For PI regions, 
absolute; must partition on if specifying 
also specify the system base and len, use 
length, @ or . base=@, length=@ 
maximum) or max 
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Example 7-1 has the source code for a resident common COMWP and a 
referencing task COMGP. The following procedure is used to create 
the resident common: 


1% 


Code the shared region. 


See COMWP.FTN in Example 7-1. The following note is keyed 
to the example: 


@ create the FORTRAN named COMMON, MYDATA, and put data 
into the array I. 


Compile the shared region. 
>FORTRAN/LIST COMWP 
If necessary, create the common type partition. 


We will make a partition COMWP, eight blocks = 199@0(8) 
bytes long. If the partition TSTPAR already exists on 
your system, you may be able to eliminate it and then set 
up your partition. Be sure to check with your system 
manager before doing this and also be sure to. put MTSTPAR 
back when you are finished. 


! Check current partitions on the system 
-~>SHOW PARTITIONS 

!Record base address and length of TSTPAR and the type 
'of partition. Convert the values to blocks by 
!dropping the last 2 zeroes. (For example, base 
'address 1234800(8)=1234 blocks, 

!length=20000(8) bytes = 200(8) blocks) 

! Eliminate the partition TSTPAR 

>SET NOPARTITION: TSTPAR 

! Create the partition COMWP | 

>SET PARTITION:COMWP/BASE:1234/SIZE:1@8/COMMON 

! Check to see if this worked correctly 

>SHOW PARTITIONS . 


Later, to eliminate the partition and to replace fMTSTPAR, 
use these commands: 


>SET NOPARTITION : COMWP 
>SET PARTITION: TSTPAR/BASE:1234/SIZE: 200/TASK 
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Task-build the shared region. 
To build position independent: 


>LINK/OPTIONS/MAP/SHAREABLE:COMMON/NOHEADER - 
->/SYMBOL_TABLE/CODE:PIC COMWP,LB: [1,1] FOROTS/LIB 
Option? STACK=9 

Option? PAR=COMWP 

Option? <RET> 


The /OPTIONS switch allows you to enter. options. /MAP 
indicates that you want amap file. /SHAREABLE:COMMON 


indicates that Psect names are to be placed in the  .STB 


file (required to reference with FORTRAN COMMON). 
/NOHEADER indicates that no task header be included in the 
task image Since this is not an executable task. 
/SYMBOL TABLE indicates that a .STB file be created. 
(COMWP.STB). /CODE:PIC indicates a position independent 
region. STACK=@ indicates no stack space is needed since 
this is not an executable task. PAR=COMWP indicates the 
partition is COMWP. The Task Builder gets the length (for 
a maximum check) from the partition on the system. 


Install the region. 
>INSTALL COMWP 
Installs the region and also loads it into memory. 


Note that this is different from an executable task, 
which usually isn't loaded until it is requested. 
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BLOCK DATA COMWF 


C 
C File COMWF.FTN 
C 
C Frogram to create and initialize a resident common 
-C 
C Task-huild instructions? Must include /SHAREABLE? COMMON 
C and /NOHEANER switches’ STACK=0 and FAR=COMWF ortions. 
C Must create .STE file. May be /COMESPIC or absolute 
C (the default). OTS library NOT reauired. 
C 
1) COMMON /MYDATA/ 3I1¢256) 

VATA I /128k59128K10/ 

END 

FROGRAM COMGF 
C 
C File COMGF.FTN 
C 
C Task to read date from a static resion and erint it 
C out at TI?. It uses a COMMON to reference the data. 
C 
C Task-build instructions? 
Cc 
C LINK/MAP/OF TION COMGPsLBt lis lL IFOROTS/LIBRARY 
C Ortion? RESCOM=COMWF/RO 
Cc Ortion? <RET= 
C. 


1) COMMON /SMYDATA/S L¢6256) |! Common to reference 
C 1 shared resion 
C Loom through to disrelay regions 8 numbers on @ line 
no 30 J = 124998 
WRITE (S910) (L¢K sK=JeJt7) ! Write values 


10 FORMAT ¢€¢% ’sI2%71I8) 
50 CONTINUE 

CALL. EXIT 

ENT 


Example 7-1 Resident Common Referenced with FORTRAN COMMON 
(Sheet 1 of 2) 
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Run Session 


ZINS COMWP 
>RUN COMGF 

3 3 3 3 3 3 3 3 
3 3 3 3 3 3 3 3 
3 3 3 3 3 3 3 3 
& & & & 6 & & é 
& & 6 6 & & & 6 
4 & 6 rs) & & 6 & 


Example 7-1 Resident Common Referenced with FORTRAN COMMON 
(Sheet 2 of 2) 
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Creating a Referencing Task 


1. Code the task, using the FORTRAN COMMON used in creating — 
the region. 


2. Compile the task. 
3. Task-build the task. 


e Specify shared regions by using one of the following 
options: 


- RESCOM=common name - for a user’ resident common. 
The .STB and .TSK files may be on any device and 
in any UFD, uSing normal defaults. 


Append /RO or. /RW for read-only or read-write 
access. 


- COMMON=common name - for a system resident common. 
The .STB and .TSK files must be in LB:[1,1l]. 


Append :RO or :RW for read-only or read/write 
access. 


(Note that a colon (:) is used for COMMON and 
a slash (/) is used for RESCOM when appending the 
RO or RW switches.) 


4. After installing the shared region, install and/or run the 
task. 


If the shared region is to be a system shared region, the .STB 
file and the .TSK file should be placed in LB:[1,1]. Otherwise, 
they can reside on any device under any UFD, as long as both files 
are in the same UFD on the same device. 


Read-only or read/write access affects the way the access bits in 
the page descriptor registers (PDRs) in the APRs are set up. A 
memory protect violation occurs if a task attempts to write to a 
region when it has read-only access. 
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COMGP.FTN in Example 7-1 contains the source code for a task to 
reference the shared region COMWP. Use the following procedure to 
create the task: . 


Lis 


Code the task. 


See COMGP.FTN in Example 7-1. The following note is keyed 
to the example: = . 


@ The same FORTRAN named COMMON, MYDATA, is used here as 
in COMWP.FTN to set up referencing. 


Compile the task 

Task-build the task 
>LINK/OPTION/MAP COMGP 
Option? RESCOM=COMWP/RO 
Option? <RET> 
Link task to resident common COMWP. COMWP.TSK and 
CONWP.STB are in the current UFD on SY:. Set up 
read-only access. Use the highest available APR, APR 
7, if the region was built position independent. 


After installing the shared region, install and/or run the 
task. 


To do a temporary install, run, remove: 
>RUN COMGP 
To install and then run: 


>INSTALL COMGP 
>RUN COMGP 
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Accessing a Region for Read-Only or Read/Write 


Whether read-only or read/write access is required is usually 
straightforward. If a task moves data into the region or changes 
a value in the region, read-write access is required. If a _ task 
moves data out of the region or just reads values in the region, 
read-only access is required. 


However, when QIOs are issued and the buffer is in the shared 
region, the situation is more involved. Obviously, to do a read 
(e.g., from a terminal) into a buffer in the shared region 
requires write access. A write (e.g., to a terminal) from a 
buffer in the region should only require read access. However, 
because the Executive is designed for very fast, real-time 
applications, it does not check the function code for a QIO 
directive to see whether it is a read or a write. Instead it 
assumes the worst case - that all QIOs involving a buffer in a 
Shared region are reads (from a peripheral device) into a buffer 
in the region, and that therefore all QIOS require read/write 
access. 


This condition causes an [I/0 error (I0.SPR) for illegal user 
buffer. This condition does not cause errors in the example 
because FORTRAN WRITES create the output string in a buffer within 
the referencing task area and the QIOs do the writes from the 
referencing task area. However, if you issue QIOs directly, the 
above problem can exist. 


One solution is to get read/write access to the shared region. 
Another solution is to move the data from the shared region to a 
buffer in the referencing task area and then use that buffer for 
the QIOs. A third solution is to build the task as a privileged 
task. Privileged tasks, similar to privileged terminals, are 
granted certain extra access to the system which nonprivileged 
tasks don't have. Some privileged tasks just gain these extra 
access rights, others map to the Executive as well. Normally, the 
Task Builder builds a task as a nonprivileged task. For a 
discussion of privileged tasks and how to task-build them, see 
Appendix D. | 
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CREATING AND REFERENCING A SHARED LIBRARY 


Example 7-2 contains a shared library, LIB.MAC, and a_ referencing 
task USELIB.FTN. The program LIB.MAC and the associated comments 
are included to illustrate how a MACRO program can be called from 
a FORTRAN program. Some knowledge of MACRO-11 is required to have 
a full understanding of the example. The FORTRAN user need only 
know the order of the arguments in the CALL in order to use these 
subroutines. : 


The shared library contains four simple arithmetic routines’ to 
add, subtract, multiply, and divide two numbers. They are all 
written to be reentrant and, in addition, they are written so that 
they can be called from a FORTRAN program with a standard FORTRAN 
Subroutine call. 


INTEGER OP1,0P2,ANS 
CALL AADD(OP1,0P2,ANS) 


The argument list is set up as follows: 


REKKKEKEKEKEKEKEKKEKKREERKKEREKKRKRRRRKEEE 


* R5 * COUNT=3 * word, word 
KEEKKREKEKERKEKRREKRKEEKRRKRKRKKEREKRE 

* address of OPIl x longword 
KRKEEKEKEKKEKEREKRKERERKEREKRKRREKRKKRKKKRKRKKESE 

* address of OP2 * longword 
KREKKEKKEEKKEKRKEKRKEKRKEKEKKKRRKRRKKRKRKER 

* address of ANS * longword 


KRREREKREKEKEKRERKERKEKRKERKEKEKKKRKKRKRKREKRE 


Note that subroutines written in FORTRAN cannot be included in a. 
resident library because the code generated by FORTRAN is not 
reentrant. For additional information on the FORTRAN/MACRO-11 
interface, see Appendix C. 
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Each subroutine saves and reStores all of the registers, using the 
system library routine SSAVAL. The referencing task, USELIB, 
calls each of the subroutines once, using the operands 8(18) and 
2(18), and displays just the answers for the four operations. The 
following notes are keyed to Example 7-2. 


1) Each subroutine entry point is defined with a global 
symbol. 


© Each subroutine is in a Psect of the same name as_ the 
subroutine. In fact, the Psects are optional since the 
library is built /SHAREABLE:LIBRARY. The specified Psect 
names are not placed in the .STB file. 


@ For AADD and SUBB, move the first operand to RQ@, perform 
the operation in R@, then move the answer to the third 
operand for return to the caller. 


@ For MULL, use R1 instead of RG, so that the product is 
limited to just Rl (16 bits). If R@ were used instead, a 
32-bit product is returned (low-order 16 bits in Rl, 
high-order 16 bits in R®@). 


5 ‘For DIVV, a 32-bit dividend is assumed in Rn and Rn+tl,_ so 
here it is R2 and R3 (low-order 16 bits in R3, high-order 
16 bits in R2). Therefore, the 16-bit operand is placed 
in R3 and the high-order word is cleared. The 16-bit 
quotient, returned in R2, is then moved into the third 
operand for return to the caller. 


6 Task-build instructions needed to tie the task to the 
library. 
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Task-Building the Shared Library and the Referencing Task 


The instructions for task-building the library and the referencing 
task are included in Example 7-2; however one point should be 
emphasized. 


When Task Building the library, you must use the 
/SHAREABLE: LIBRARY switch to avoid task-builder errors when 
building the referencing task. Whether the library is to be a 
system resident library or a user resident library is determined 
strictly by where the .STB and the .TSK file for the library 
reside. If they are in LB:[{1,1], the library is a system resident 
library. If the .STB and .TSK files exist in other than LB:[1,1], 
the library is a user resident library. 


When task building a referencing task, the option (not |. switch) 
RESLIB=library name or LIBR=library name must be used. If the 
option LIBR is used, the search for the library will be done only 
in UFD LB:[1,1]. If the option RESLIB is used, the search for the 
library will be done on the default device and UFD, or on _ the 
device and UFD specified with the library name; for example: 


>LINK/OPTIONS/MAP COMPG 
Option? RESLIB=DB2:[288,5]LIBA1/RO 


The above comments also apply to the creation and referencing of a 
common region. The only difference is that when the common is 
task-built, the /SHAREABLE:COMMON switch is generally used and 
when the common is referenced, the option COMMON=name is used for 
a system resident common, and RESCOM=name is used for ae user 
resident library. 
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»+TITLE LIB 
IDENT /01/7 
*ENABL. LOC i Enable lower case 


File LIB.+MAC 


This file contains the FORTRAN callable subroutines 
AADTs SUBBy MULL» and DIVVsy which rerform the 
arrrorriate inteser oreratian. 


Calling convention? CALL sub Corlvor2sans) 


Task-build instructions? Must include /SHAREABLETLIBRARY 
andi /NOHEADER switches s STACK=0 and FAR=LIB ortions. 
Must create .STE file. May be /CODESFIC or ansolute 
(default). Usimnss /SHAREABLESLIBRARY avoids Foect 
conflicts. 


2 ] *FSECT AAILyROs Ts GBLy REL» CON 


AANnO?: CALL $SAVAL. § Save all resisters 
MOV @2 (RS) »¥RO § Move ist orerancd 
3) Ee @4(R5) RO $ Add 2nd orerand 
MOV RO»@46¢(RS) $ Store result 
RETURN ¢ Restore regs and return 


»PSECT SUBBRyRO»vTyGRL»y REL» CON 
’ Save all resisters 


33) ©6CALL $SAVAL $ 
Sur @2 (RS) »RO § Move ist orerand 
SUB @4(RS)d RO § Subtract 2nd orerand 
MOV ROrB6¢CRS) i Store result 
RETURN ¢§ Restore ress and return 


»*PSECT MULL» ROsT»sGBL»y REL» CON 
3) CALL $SAVAL Save all resisters 
MOV @2(RS) eR1 Move ist orerand 
MUL C4 (RS) Ri Multiridys Canswer ‘in 
Just R12 
Store result 
Restore ress and return 


<S> 


MOV Ri »@6CRS) 
RETURN 


> Ge “> “Me “ae 


©... FSECT «DIV» ROy TyGBL»REL »CON 
Save all resisters 


a> 


MOV @2(RS) ¥ RS § Move ist orerand 

rs] CLR R2 ¢ Clear histh order 16 bits 
niryv @4(RS) 9R2 + Tlivide 
MOV R2»@6CRS) ’ Store result 
RETURN § Restore ress and return 
+END 


Example 7-2 Shared Library (Sheet 1 of 2) 
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PROGRAM USELIB 

C 

C File USELIB.FTN 

C 

C FORTRAN task to use resident library LIB 

C 

C Task-build instructions? 

ie 

C SLINK/CODE 3 FFPFP/MAF/OPTION USELIBsL Bt Cis lL IFOR- 

Cc 6 ~:OTS/LIEBRARY 

C Ortion? RESLIB=LIB/RO 

C Ortion? <RETS 

Cc 
INTEGER ANS» OF 1 sOF2 
DATA OP1lyOP2 /8%2/ 

C 
CALL AAITICOF 1 »OF2»ANS) Add orerands 
TYFE 100» ANS Frint results 

c 
CALL SUBBCOFP 1 »0F2»ANS) Subtract orerands 
TYFE 100% ANS Frint results 

G 
CALL MULL COP 1 »OP2» ANS) Multirely orerands 
TYFE 1009 ANS Frint results 

C 
CALL DIVVCOP1sOFP 2» ANS) ! Tlivide orerands 
TYPE 100» ANS ! Print results 

C 
CALL EXIT 

Cc 

100 FORMAT ¢° THE ANSWER = ‘’yI2¥’.%) 
END 

Rum Session 

ZINS LIB 

>RUN USELIB 

THE ANSWER IS 10. 

THE ANSWER IS 6. 

THE ANSWER IS 16. 

THE ANSWER IS 4. 

Figure 7-2 Shared Library (Sheet 2 of 2) 
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DEVICE COMMONS 


A device common is a special type of common that occupies physical 
addresses on the I/O page. The I/O page does not contain physical 
memory, but peripheral device registers instead. Therefore, a 
device common does not contain data the way a regular resident 
common does. It is really just a way of setting up addressing to 
allow a task to manipulate the device registers directly. This 
might be useful in checking out the proper commands needed _ to 
control a device or to check what control status registers (CSRs) 
are in use on your system. Obviously, extreme care must be used 
if you manipulate a device which is also referenced by any system 
routines (e.g., a system device driver). 


Privileged tasks which map to the Executive can also automatically 
map the I/O page. However, privileged tasks must be written very 
carefully to avoid causing additional problems for the running 
system. Device Commons’ allow nonprivileged tasks to manipulate 
device registers. 


While a device common region can be created in FORTRAN, by its 
nature, referencing must be done via MACRO-1l. For an example see 
the RSX-11M/M PLUS Task Builder Manual. 


Appendix F contains information about more advanced shared region 
topics. It includes a discussion of the following topics: 


e Overlaid shared regions 


e Referencing several shared regions from one referencing 
task ji 


e Handling interlibrary calls 
e Cluster libraries 


Most of the techniques discussed are more appropriate for the 
MACRO-11 programmer who is running into virtual address limitation 
problems. Cluster libraries are designed to save virtual address 
space in tasks which use DIGITAL layered products, such as 
FORTRAN, FMS (Forms Management Services), and FCS (File Control 


Services). If you write FORTRAN programs which use these 
products, you may find it useful to just read the last few pages, 
which cover the procedure for task-building a task which 


references two or more DIGITAL supplied resident libraries as a 
set of cluster libraries. 
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Now do the Tests/Exercises for this module in the Tests and 
Exercises Book. They are all lab problems. Check your answers 
against the solutions provided, either the on-line file (under UFD 
[282,2]) or the hard copy in the Tests and Exercises Book. 


If you feel that you have mastered the material, have your course 
administrator record your progress on your progress plotter. You 
will then be ready to begin a new module. 


If you feel that you have not yet mastered the material, return to 
the module for further study. 
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DYNAMIC REGIONS 


INTRODUCTION 


The last module discussed how to use the Task Builder to create 
and access’ Static regions. It is also possible to create and 
access regions while a task is executing. Such regions are called 
dynamic regions. The memory management directives allow a task to 
create and access dynamic regions and access existing static 
regions. In addition, they offer a facility for creating private 
regions and for allowing other tasks to access these regions. 


OBJECTIVES 


1. To write tasks which create a dynamic region and access 
dynamic and/or static regions 


2. To write tasks which dynamically control their mapping 


3. To write tasks which create a private dynamic region and 
allow one or more other tasks to access the region. 


RESOURCE 


@e RSX-11M/M-PLUS Executive Reference Manual, Chapter 3 plus 
specific directives in Chapter 5 
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SYSTEM FACILITIES 


Sometimes a task's needs for memory and for shared regions’ aren't 


known 


until run time, or the needs may change at run time. 


Examples are: 


1. 


2. 


A task, e.g. an editor, needs a temporary work buffer for 
only part of the time the task is active. 


A task needs a shared region or work buffer, but its size 
depends upon the needs of the user running the task (e.g., 
the size of an input file). 


A task creates a shared region and wants to control access 
to it by other tasks. 


A task wants to create a shared region in a_e system 
controlled partition (e.g., GEN) instead of in a dedicated 
common type partition. Then when the shared region isn't 
needed, the space automatically is available for other 
system needs (tasks, etc.). 


A task needs to map to two different shared regions at 
different times, but has only one 4K word virtual address 
window available. 


Special directives, called memory management directives, are 
available on mapped systems to allow tasks to perform’ the 
following functions: 


Create regions in system controlled partitions 


-Attach/detach from a region 


Create/feliminate virtual address windows 
Map/unmap a virtual address window to an attached region 


Obtain information about its mapping from the system 


The memory management directives are a SYSGEN option. Therefore, 
if users on a system plan to use them, they must be included in 
the Executive at SYSGEN time. Check with your system manager to 
find out if they have been included on your system. 
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Table 8-1 lists the memory management directives which 
available on an RSX-11M system. 


Table 8-1 Memory Management Directives 


Function | | FORTRAN Calls 
Attach region ATRG 
Create address window CRAW 
Create region CRRG 
Detach region DTRG 
Eliminate address window ELAW 
Get mapping context GMCX 
Map saarese window MAP © 
Receive-by-reference RREF 
Send-by-reference SREF 
Unmap address window UNMAP 
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REQUIRED DATA STRUCTURES 


Each memory management directive requires that you set up one of 
two data structures within your task; namely a region definition 
block (RDB) or a window definition block (WDB). The RDB and_ the 
WDB are the interface between the user task and the Executive. 
Their contents change dynamically as regions are created and 
accessed. In general, once the WDB and/or the RDB are set up, the 
actual memory management directive FORTRAN calls are quite 
straightforward. Their format is either: 


CALL XXXX(wdb,idsw) 
or 
CALL XXX (rdb,idsw) 


where wdb is the name of an 8 word integer array 
for the Window Descriptor Block 


rdb is the name of an 8 word integer array 
for the Region Descriptor Block 


Examples: 
INTEGER WDB(8) ,RDB(8) 


4 


CALL CRAW (WDB, IDSW) 
CALL CRRG (RDB, IDSW) 


Region Definition Block (RDB) 
An RDB contains information needed to create a region and/or. to 
attach to a region in a system controlled partition. The RDB is 
used by the following directives: 

e Attach Region (ATRG) 

@e Create Region (CRRG) 


@ Detach Region (DTRG) 
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Figure 8-1 shows the arguments for the various RDB elements. The 
meaning of the elements is as follows: 


Region ID - a unique number assigned to a region when your 
task attaches to a region. The number associates the task 
with the region. It is returned by the Executive after 
your task attaches to a region. 


Size of Region - the size of a region to .be created, in 
32-word blocks. Also used to return a size when attaching 
an existing region. 


Name of Region - up to six characters in Radix-5@. 
Assigned when a region is created and used when attaching 
to a region. 


Region's Main Partition Name - up to six characters in 
Radix-5@. The name of the system controlled partition. 


Region Status Word - used by the user task to_- send 
information to the Executive when creating or attaching to 
-a region. Also used by the Executive to return status’ to 
the task after a memory management directive is executed. 
Table 8-1 lists the various bits and their meanings. 


Region Protection Word - Analogous to the file protection 
word, controlling access to regions. As shown below, it 
is set up with the same format (RWED for Read, Write, 
Extend, Delete) within each category: System, Owner, 
Group, and World: 


World Group Owner System 
DEWR DEWR DEWR DEWR 
1119 111@ BBB SBOD = 167900 (8) 


A 1 means access is denied, a @. means access is permitted. 
The example means world and group have read access; owner 
and system have all access. 
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ARRAY 
ELEMENT ARGUMENTS BLOCK FORMAT 
irdb (1) REGION ID | 
irdb (2) siz SIZE OF REGION (32W BLOCKS) 
irdb (3) . 

nam NAME OF REGION (RADS5O) 
irdb (4) 
irdb (5) 

par REGION'S MAIN PARTITION NAME (RAD50) 
irdb (6) 
irdb (7) sts REGION STATUS WORD 
irdb (8) pro REGION PROTECTION WORD 


TK-9385 


Figure 8-1. The Region Definition Block 
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Table 8-2 Region Status Word 


Octal 

Symbol Value Set By Definition 

RS.CRR 190990 System Region successfully created 

RS.UNM 49008 System At least one window unmapped on a 
detach . 

RS.MDL 298 User Mark region for deletion on last 
detach 

RS.NDL 199 User Created region not deleted on last 

. detach 

RS.ATT 48 User Attach to created region 

RS.NEX 28 User Created region not extendable 

RS. DEL 1¢ User Delete access desired on attach 

RS.EXT 4 User Extend access desired on attach 

RS.WRT 2 User Write access desired on attach 

RS.RED 1 User Read access desired on attach 


Just as in other modules, the symbols shown are those used in’ the 
documentation and by MACRO programmers. The symbols can be 
converted to FORTRAN acceptable variable names by dropping’ the 


period in the symbol. Values may be assigned by using the DATA 
statement. 
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Creating an RDB in FORTRAN 
Example: 
Create an RDB for a region with the following svat eidar ions: 
Size in 32(18) word blocks = 2 
Region name = MYREG 
‘Partition name = GEN 
Region to be attached on create 
Region to be mavkea for delete on last detach 
Write access desired on attach 
Owner to have all privileges and group to have read privileges 


DIMENSION IRDB(8) 


e e 


DATA IRDB/®,2,3RMYR,3REG ,3RGEN,3R ,"242,"177817/ 
In the above, the region status word (word 7 = 242(8)), is the sum 
of 200(8) + 48(8) +2(8). See table 8-2 for meanings. 


The region protection word is 177@17(8), which breaks down as 
follows: 


World Group Owner System 
DEWR DEWR DEWR DEWR 
1111 1119 GOOD 1111 
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Example: 

Create an RDB for a region with the following specifications: 
Size in 32(18) word blocks = 1800 (8) 
Region name = XXXX 
Partition name = same as task is installed in 


Region status = do not delete, desired access to be filled in 
before attaching 


World to have no privileges, all others to have all privileges 


DIMENSION IRDB(8) 


DATA IRDB/®@,"1800,3RXXX,3RX ,0,9,"100,"178800/ 
Note that any value the Region Descriptor Block could be changed 


dynamically at run time by using input values to change various 
parts of the RDB. 


Window Definition Block (WDB) 
A WDB contains information needed to create a virtual address 
region and to map a virtual address window to an attached region. 
The WDB is required for the following directives: 

e Create Address Window (CRAW) | 

e Eliminate Address Window (ELAW) 

e Map Address Window (MAP) 

@e Unmap Address Window (UNMAP) 

e Send-by-Reference (SREF) 


e Receive-by-Reference (RREF) 
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Figure 8-2 shows the layout of the WDB.. 
The meaning of the elements is as follows: 


Window ID - A number which identifies the window block. in 
the task header which describes the window. Window @ is 
used for the task window. Windows 1 through 7 are used 
for additional windows set up by the Task Builder for 
overlays and static regions and for windows created 
dynamically. The window ID is returned by the Executive 
after a Create Address Window directive. The Task Builder 
option WINDWS=n must be used to specify the number of 
additional window blocks needed for dynamic windows. 


Base APR - The base APR to be used in mapping the window, 
which sets the base virtual address. 


Base Virtual Address -- The base virtual address in octal; 
returned by the Executive after a Create Address Window 
directive. . 


Region ID —- The region ID, used to identify the region 
when mapping a virtual address window to aé_ region; 
returned by the Executive in the RDB after an Attach 
Region directive. You must move the value returned from 
the RDB to the WDB before mapping to the region. 


Offset in Region (32 word blocks) - The offset within the 
region at which mapping is to begin. Allows a task to map 
to different portions of a region. 


Length to Map (32-word block) - The length within’ the 
region to be mapped. Defaults to the shorter of the space 
remaining in the region and the size of the window. 


Window Status Word - Used by the user task to -send 
information to the Executive when creating and mapping 
windows. Also used by the Executive to return status to 
the user task after a directive is executed. Table 8-3 
lists the various bits and their meanings. 


Send/receive buffer address - The address of an eight-word 


buffer for sending or receiving data as part of the 
Send-by-Reference and Receive-by-Reference directives. 
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ARRAY 

ELEMENT ARGUMENTS BLOCK FORMAT 

iwdb (1) BASE APR WINDOW ID 
apr 

iwdb (2) VIRTUAL BASE ADDRESS (BYTES) 

iwdb (3) siz WINDOW SIZE (32W BLOCKS) 

iwdb (4) rid REGION ID 

iwdb (5) off OFFSET IN REGION (32W BLOCKS) 

iwdb (6) len LENGTH TO MAP (32W BLOCKS) 

iwdb (7) sts WINDOW STATUS WORD 

iwdb (8) srb SEND/RECEIVE BUFFER ADDRESS 


TK-9386 


Figure 8-2 The Window Definition Block 
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Creating a WDB in FORTRAN 
Example: 
Create a WDB to describe a window with the following: 


APR = 7 © 

Size in 32(18) word blocks = 19@(19) 

Region to be mapped in a CALL CRAW or CALL RREF directive 
Map with read access 

Map 198(19) blocks 


DIMENSION IWDB(8) 


DATA IWDB/"3400,0,100,0,8,190,"201,0/ 


Note that the APR number (7 in the example) must be placed in the 
high byte of the first word in the WDB. This can be done by 
putting 3490(8) into IWDB(1). 3488(8) is 988988111 9BBGBHHH(2) 
which puts a7in the high byte for the base APR. This can also 
be done by setting IDWB(1)=7*256. 


Word 7 (2@1(8)) is the window status word. See Table 8-3 for’ the 
definitions of the bits in this word. 


Create a WDB to describe a window with the following: 


APR = 5 

Size in 32(18) word blocks = 2@0(8) 

Map starting at offset of 5 blocks in region and map 
18(18) blocks 

Send with delete: and write access 


DIMENSION IWDB(8) 


DATA IWDB/"2400,9,208,98,5,18,"412,0/ 
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WS.CRW 
WS. UNM 
WS.ELW 


WS.RRF 


WS.64B 


WS .MAP 


WS.RCX 
WS. DEL 
WS.EXT 
WS.WRT 


WS.RED 


Octal 
Value 
198000 
49800 


28008 


19800 
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Table 8-3 


Set By 


System 
System 
system 


System 


User 


User 


User 
User 
User 
User 


User 


Window Status Word 


Definition 


Address window successfully 
created 


At least one window unmapped by 
a CRAW, MAP or UMAP directive 


At least one window eliminated 
in a CRAW or ELAW directive 


Reference successfully received 
Defines permitted alignment for 
offset start within the region 

@ for 256-word alignment (8 blocks) 
1 for 32-word alignment (1 block) 


Window to be mapped in a CRAW or 
RREF directive 


Exit if no references 

Send with delete access 

Send with extend access 

Send or map with write access 


Send with read access (map is 
with read access by default) 
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CREATING AND ACCESSING A REGION 


Use the following procedure to create and access a region: 
1. Create ppeceeaien (Create Region directive) 
2. Attach to the region (Attach Region directive) 
3. Move the region ID from the RDB to the WDB 


4. Create a virtual address window (Create Address Window 
directive) 


5. Map the virtual address window to the region (Map Address 
Window directive) 


6. Use the region 


7. Detach from the region (Detach Region directive or _ task 
exit). It is recommended that a task always issue the 
Detach Region directive rather than depend on the _ EXIT 
processing code to issue the Detach. The reason for this 
is that if a task is fixed and EXITs, then no detach is 
done. If you run the fixed task over and over, you could 
run out of pool. 


Steps 1 and 2 and also steps 4 and 5 can each be combined in a 
Single directive call. Step 4 can be performed earlier, if 
desired. To access an existing region, begin with step 2. 


If you don't remember what windows and regions are and also what 
attaching and mapping mean, look over the sections on Windows and 
Regions in the last few pages of Module 5, the Memory Management 
module. | 


The use of each directive in the procedure above is detailed on 
the following pages. The discussion includes: the purpose of the 
directive, important input and output parameters, plus notes about 
its use. For a complete discussion of each directive, see Chapter 
5 of the RSX-11M/M-PLUS Executive Reference Manual. For 
additional information on the memory management directives, see 
Chapter 3 of the same manual. 
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Creating a Region 


When you create a region, the Executive allocates space for it in 
a system controlled partition. Use the Create Region directive 
(CRRG) with the following RDB input parameters: 


1. Size of region (in 32(18) word blocks) 
2. Name of region (becomes a private region if no name) 
3. Name of partition (defaults to partition of task) 


4. Region Status Word - mark for delete or do not delete 
(default is mark for delete) 


5. Region protection word -— determines permissible access to 
region 


In the following discussion, the MACRO symbols are used for’ the 
various Window Status Word bits. See Table 8-3 (Window Status 
Word) for definitions and values. 


The only RDB output parameter is the RS.CRR bit in the region 
Status word. It is set if the region is successfully created, and 
cleared if not. Normal Executive directive status is returned as 
well (carry set for error, clear for success; DSW contains 
directive status word). If the region already exists, success 
status is returned. Therefore, RS.CRR can be used to tell whether 
the region was in fact created or whether it already existed. The 
following code segment illustrates how to examine RS.CPR to see if 
the the region was successfully created. 


INTEGER RSCPR,RDB(8) 
DATA RSCPR/"109008/ 


I=RDB(7) .AND."180000 


Now test I. If I is @, the region was not created; otherwise it 
was. 
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Any task which passes the protection test can attach to a named © 


region. For unnamed (private) regions, only tasks which are 
specifically attached by the creator of the region may attach to 
Lt Therefore, for a private region, the creator completely 


controls which tasks attach to it, and their access’ rights as 
well. 


By default, or if RS.MDL is set in the region status word, the 
region is deleted when the last attached task detaches from the 
region. Named regions are left in existence after the last detach 
if RS.NDL is set in the region status word when the region is 
created. Unnamed (private) regions are always marked for delete 
(deleted on last detach). There is no explicit Delete Region 
directive. 


If the RS.ATT bit is set in the region status word, the Executive 
also attempts to attach the task to the region. In this case, 
additional RDB input parameters are required and additional output 
parameters are returned. Attaching to a region is discussed after 
Example 8-l. 


Example 8-1 shows how to create a named region which is left in 
existence on the last detach. The following notes are keyed to 
the example. 

@ Set up the RDB. RS.NDL (196 (8)) in the region status word 
(RDB(7)) specifies that the region is to be left in 
existence. 

World Group Owner System 
DEWR DEWR DEWR DEWR 
Region Protection Word = tid GOD GOBS @WSSB(2) 
1788808 (8) 
Bit set means access denied 

6 Issue directive to create region, specifying the RDB 

address and the DSW as the only arguments. 


@ Check for directive error. 


@ Display message and exit. 


rae i | 


HOGA AIAIAIAAOAIHA AG 


3 


C 
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FROGRAM CRERG 


File CRERG.FTN 
CRERG creates a named region and exits» leaving the 
region in existence. 
RDB = Resion Definition Block for resion with the 
following rrorerties? 

Size = 100 (32. word blocks) 

Name = MYREG 

Fartition = GEN 

= WO?NonerSYIRWED 


Frotection 
OWS RWEDy GRIRWED 
Yo not mark for delete on last detach 


INTEGER RDBCS) 

Initialize the ROE 

@ DATA ROUB/O»s"100s3RMYR:3REG » 3RGENs 3R ? 

1*°000100% "1700007 

Create resion 
CALL CRRGC(RIBsTI0S> 

Branch om error 
IFCINS.LT.O GOTO 800 

Write success messade 
WRITE (5915) 


is @ Format (’ CRERG SUCCESSFULLY CREATED MYREG/) 


C 


C 


Go to common exit 
GOTO 1000 


Write create error message 


800 WRITE (S850) 10S 
850 FORMAT(’ ERROR IN CREATING REGIONs [1SW = ’»T4) 
1000 CALL EXIT 


ENT 


Rum Session 


“RUN CRERG 
CRERG SUCCESSFULLY CREATED MYREG 


Example 8-1 Creating a Region 
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Attaching to a Region 


When you attach your task to a region, the Executive creates a 
logical connection between the two. The region can be either a 
dynamic region or a static’ region. Use the Attach Region 
directive (ATRG) with the following RDB input parameters: 


Region name 
Region Status Word (indicating R,W,E,D access) 


The following RDB output parameters are returned: 


Region ID 
Region size 


The region ID is needed later in order to map a virtual address 
window to the region. The region size is of interest when 
attaching to an already existing region whose size may not be 
known. 


Attaching can also be done as part of the Create Region directive 
(CRRG), if the RS.ATT bit in the region status word is set when 
the Create Region directive is issued. In fact, for an. unnamed 
region, attaching must be done as part of the Create Region. 
directive, since there is no region name to be used in a separate 
Attach Region directive. 


A task can detach from a region by using an explicit Detach Region 
directive (DTRG) or by exiting (the Executive detaches the task). 
If a task is changing a region from "do not delete" to "mark for 
delete", an .explicit detach is required with RS.MDL set in the 
region status word. If a task exits without issuing an explicit 
detach, and the task is not fixed, the Executive detaches the task 
but does not mark the region for delete. Once a region is’ marked 
for delete, it is deleted when the last attached task detaches 
from it. Once it is marked for delete it cannot be changed to "do 
not delete". | 


If a fixed task exits without issuing a detach, no detach is 
issued by the Executive. 
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Creating a Virtual Address Window 


When you create a virtual address window for a task, the Executive 
initializes a window block in the task header. It also checks to 
ensure that this is the only window that uses the specified range 
of virtual addresses, unmapping and eliminating any window that 
overlaps that range. Use the Create Address Window directive 
(CRAW) with the following WDB input parameters: 


Base APR number 
Window size (in 32(1%8) word blocks) 


The following WDB output parameters are returned: 


Window ID assigned by the system (1-7) 
Base virtual address 


The space for the additional window blocks in the task header must 
be reserved at task-build time using the WNDWS=n option. N is the. 
number of additional windows needed for windowS created at run 
time. If extra space is not allocated, an address’ window 
allocation overflow error (IE.WOV= -85.) results when you attempt 
to create a virtual address window. 


The window is also mapped to a region if bit WS.MAP is set in the 
window statuS word when the Create Address Window directive is 
issued. In that case, additional input parameters) are needed. 
See the following section on Mapping to a region. 


The Eliminate Address Window (ELAW) directive can be used _ to 
explicitly eliminate a virtual address window. In general, it is 
not used because creating a new window automatically eliminates 
any overlapping window. 
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Mapping to a Region 


When you map a virtual address window to a region, the Executive 
creates a logical connection between the virtual address window 
and the region. Any attached region can be mapped. In the 
process, the memory management registers are loaded so that 
references to virtual addresses in the window access the region. 
This assumes, of course, that the task keeps control of the CPU. 
The APRs are reloaded every time a new task takes control of the 
CPU. : 


Use the Map Address Window directive (MAP) to map a window to a 
region, with the following WDB input parameters: 


Region ID —- Returned to RDB by Attach (move from RDB to 
WDB). 


Offset into Region - in 32-word blocks, used to start 
mapping at an offset from the start of the region. This 
must be a multiple of 8(18) unless WS.64B is set in the 
window status’ word. Tf wWS.64B is set, any whole number 
may be specified. 


Length to Map -~ If specified, must be less than or equal 
to shorter of length of window and length remaining in 
region. If defaulted, is set to the shorter of the two. 


Window status word - actual access desSired (read-only, or 
read/write). Read access is always requested by default 
so a request for write access actually requests read/write 


access, and a request for no access actually requests read 
access. 


The only WDB output parameter generally used is the length 
actually mapped. If the window is already mapped, it is first 
unmapped by the Executive. You can also use the Unmap Address 
Window directive to explicitly unmap a window. Mapping can also 
be done as part of the Create Address Window directive (CRAW). 


The access desired is used here in addition to that declared when 
attaching because several windows in the task may map the same 
region. Some of the windows may need read-only access, others may 
need read/write access. In that case, you must attach with 
read/write access, and then you may map each window with either 
read-only access or read/write access. 
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Example 8-2 shows how to create a region and place data into 
it, leaving it in existence on exit. Example 8-3 shows how to 
attach to that region, read and display the data, and finally 
detach and mark it for delete. One run session covers both 
examples. The following notes are keyed to Example 8-2. 


@ Task-building with the WNDWS=1 option causes the Task 
Builder to allocate space in the task header for one 
additional window block. You must also use the VSECT 
option to create a virtual section starting at 168999 (8) 
for an extent of 290080(8). APR 7 must be used to map- the 
section because the section's beginning address is 
160900(8). The name of the virtual section is DATA. This 
ties the FORTRAN named COMMON DATA to the virtual section. 


@ RDB for region. Note that RDB(7), the region status word, 
is 152(8). This is the combination of the following: 


RS.NDL = 190 (8) 
RS.ATT = 49(8) 
RS.DEL = 18(8) 
RS.WRT = 2 (8) 

152 (8) 


See Table 8-1 for the above definitions. 


3] WDB for virtual address window. The third argument is for 
the region ID, which will be filled in at run time after 
the task attaches to the region. In the window status 
word, WS.MAP (200(8)) means that the Create Address Window 
directive will both create the window and map it to the 
region. WS.RED (1(8)) is automatic, even though not 
specified. WS.WRT (2(8)) indicates to map with write 
access. The sum of the two needed octal codes is 282(8). 


Create region and attach. 


Move region ID, returned in RDB(1) after attach, into 
WDB(4) for mapping. . 


@ create a virtual address window and map it to the region. 
The virtual address window begins with APR 7, so the base 
address in the window is 1608000(8), corresponding to’ the 
base address in the region. 
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Place a byte count, 498(18), in the first word in the 
region. This is just one way to communicate this 
information to other tasks which access the. region. The 
length of the region is returned when a task attaches to 
the region. You could use this as an alternate way to 
pass the information about the amount of data. 


Move 190(18) words of ASCII "AB" and 198(18) words of 
ASCII "12" into the region. This gives us 289(19) words 
or 488@(18) bytes of data. 


Display a successful creation and initialization message 
at the terminal. 


Detach from the region and then exit, leaving the region 
in existence. 
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FROGRAM CREURG 
File CREURG.FTN 


CREURG creates @ named resion Cattached on creation) » 
creates @ virtual address window (marred on creation) » 
Flaces ASCII data in the resiony detaches from the 
region and exitss leaving the resion in existence. 

It rlaces @ count word in the first word of the 
resgiony telling how many bytes of data follow. 


Task-build instructions! 


“LINK /MAP/OPTIONS/CONEFFFE CREURGyL Bt Cis LIFOROTS- 
~o/LIBRARY ; 

Oetion? VSECT=IATA? 160000320000 
Ortion? WNOWS=1 

Ortion? <RETS 


ROR = Resion Definition Block for region with the 
following rrorerties? 


Size zx JO0O0C8) C32. word blocks) 
Name = MYREG 
Fartition wz GEN 


WOsNonersSYIRWED 

OWS RWEDY GRIRWED 

lo mot mark for delete on last detach 
Attach with write and delete access 


} Frotection 


WhR = Window Definition Block for window with the 
following Prorerties? — 

AFR om 7 

Size = LO00ctal (32. word blacks) 
@ Offset in resion = 0 (32. word blocks) 

Length in region = LO00ctal (32. word blocks) 

Mer on create with write sccess 


INTEGER ROBCS) »pWORCS) 
COMMON IATA INATACZO1) 
Initialize the RIE ' 


DATA RUB/O» "LOOs3RMYRySREG » 3RGENv 3R ¥ "0001529 "1700007 


Initialize the WIE 
DATA WOES *340090% "1000909 "100% "202907 
Call routine to create and attach resion 
CALL CRRGCRIRy T0S> 
Check for error 
IFCINS.LT.OGOTO 800 
Create address window and mar to resion 
@ oworc4=roec1) 
6 CALL CRAWCWORs TDS) 


Example 8-2 Creating a Region and Placing 
Data in It (Sheet 1 of 2) 
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( Check for error 
IFCIUS.LYT.O GOTO 810 
C Place data in region - ist word is @ byte count 
IDATAC1)=400 
NO 10 J=29101 
190 3 ITIATAC J) = 7 AB’ 
NO 20 Ke1l029201 
O40) TIQATACKI=°12° 
{ Detach from resion 
CALL OTRG CRIB, Ins) 


' tC Check for error 


IF CINS.LT.OGOTO 820 
( Write messasde 
TYPE X»’“CREURG HAS CREATED ANID INITIALIZED THE 
LREGION“ 
@ Branch to common exit 
GOTO 1000 
(@ Write create error message 


300 WRITE CS +805) 10S 
805 FORMAT(C’ ERROR IN CREATING REGIONys [SW = ’»T4) 
C Go to common exit 
GO TO 1000 
(2? Write attach error message 
810 WRITECS 815) 10S 
B15 FORMAT(’ ERROR IN CREATING WINIOW AND MAFFINGs 


JQ0SW = ’¥1T4) 
GOTO. 1000 
C Write detach error message 


320 WRITE CS 825) 10S 
B25 FORMAT(C’ ERROR IN DETACHING FROM REGION, DSW = ¢ 
tyT4) 


C Common exit 
1000 CALL EXIT 
ENY 


Rum Session 


>RUN CREURG 

CREURG. HAS CREATED AND INITIALIZED THE REGION 

“RUN ATTURG 
ABABABABABARABABABABABABABABABABABABABABABABABABABABABABARABABAR 
ABABABABABABABABABABABABABRABABABABABABABABABABABABABABABABABABARB 
ABABABARABABABABABABABABABABABABABABABABABABABARABABABABRABABRABAR 
ABABABABL2Z1L 2121212121 21212121 2121212121 ei 2iei212i212i2ieaieiei2aie2 
PQLQLALAL 212121 alee e121 212121 alee 212teaieieier2i212i2i2it2i2i2 
LeLeI alee e212 212121 ete e1 212121 2a1 ela 21eieiel2i2i2i2i2ieie2i2 
M2120 21212121212 


Example 8-2 Creating a Region and Placing 
Data in It (Sheet 2 of 2) 
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The following notes are keyed to Example 8-3. . 


Again, task-build with the WNDWS=1 option so the Task 
Builder allocates space for the window block in the task 
header and with the VSECT option. 


The RDB for attaching to the region. The only required 
information is the region name and the region status word. 
The partition name and the size, although included, are 
not required. RS.MDL (200(8)) (set) marks the region for 
delete when we do an explicit detach. We need delete 
access to mark the region for delete (RS.DEL=19(8)). In 
addition, attach with read (RS.RED=1(8)) and write 
(RS.WRT=2(8)) access so we can map with read/write access. 
The sum of the region status codes above is 213(8). 


The WDB for the virtual address window. We map the entire 
region (length = 1808 (8) 32-word blocks) starting from the 
beginning (offset = @). WS.MAP means create the address 
window and map. Map with read (WS.RED) and write (WS.WRT) 
access. The sum of the window status codes is 293(8). 


Attach to the region. 


Move the region ID to the WDB and create the virtual 
address window and map it to the region. 


First word in the region contains a character or byte 
count. Convert it to a word count. . 


Print the contents of the region, 64(18@) characters’ per 
line. This technique is used to demonstrate how to 
control the width of the output and to make the run 
session fit on an 8 1/2 by 11 inch page with margins. If 
the full terminal buffer width (typically 88(198) or: 
132(18@)) is acceptable, the FORMAT could be 39A2 or 65A2. 


Detach from the region. Explicit detach required to mark 
the region for delete. 


286 


DYNAMIC REGIONS 


FROGRAM ATTURG 
File ATTURG.FTN 


FORTRAN Frogram to attach the existing region MYREG» 
create a virtual address window (marred on creation) » 
read ASCII data out of the resionys detach from the 
regions and exit. The region is marked for delete 
and will be deleted on last detach. 

The first word in the resion contains a count of how 
many bubtes of dats are in the resion. 


Task-build with these ortions? 
@ VSECT=REGION!14600003 20000 
WNOWS=1 


INTEGER RDBC8) »WOECB> , 
INTEGER IDATAC2048) ! Array for addressing 
! restion (Full 4KW) 
This common block will sglignm with the address window 
COMMON /REGION/IDATA 
RIE = Resion definition block with the following rrorerties? 
Size 0 (32.-word blocks) ~- returned 
when attached 
Name MYREG 
Fartition GEN 
Mark for delete on last detach 
Attach with delete» read and write access 


> Initialize the RIE 


DATA RIB /OrsOs3RMYRy3REG » 3RGENy SR y "000213 


1590/7 

WOR = Window definition block with the following frorerties? 
AFR 7 
Size 200 octal (32.-word blocks) 


Offset in resdion O (32.-word blocks) 
Lensth of window O octal (32.-word blocks) - 
defaults to shortest 


available length 


Mar on create with read and write access 
Initislize the WIE 
QATA WOR / "3400902 "2007090909 "203907 


Example 8-3 Attaching to an Existing Region 
and Reading Data From It (Sheet 1 of 2) 
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C 
Attach resion 
CALL ATRG CROBvyTInS) 
C Check for error on attach 
IF ¢(I0S .LT. 0) GOTO 100 
C Move resion id to WOE 
WOR C4)=RORC1) 
6 Create and mar window 
CALL CRAW (WOBs INS > 
( Check for error 
IF (10S .LT. 02 GOTO 200 
C Get bute count and convert to word count 
NWORD= CIDATACLI41972- 
(l Frint contents of resion ! 
@ 10 WRITE (S911) CIDATACI) » I =2»NWORT) 
Li FORMAT ¢€% “s32A2) 
CC Yetach from resgiom and delete it 
CALL DTRG ¢ROBy TNS) 
C Check for error 
IF (10S .LT. 0) GOTO 300 
C And Jume to exit 


GOTO 300 

C 

Cl Error messages 

100 WRITE (3Se101) TnS 

LO1 FORMAT (¢(’ ERROR ATTACHING TO REGIONy [SW =’ »T4) 
GOTO Soo 

200 WRITE (S201) ns 

201 FORMAT ¢’ ERROR IN CREATING WINDOWs DSW =’ 94> 
GOTO 300 

300 WRITE ¢€S»301) Ins 

301 FORMAT ¢€’ ERROR DETACHING FROM REGIONs [SW =’s5T4) 

bie 

500 CALL EXIT 
ENT 


Example 8-3 Attaching to an Existing Region 
and Reading Data From It (Sheet 2 of 2) 
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SEND- AND RECEIVE-BY-REFERENCE 


If you create a private (unnamed) region, you have complete 
control over whether other tasks can have access to it. You 
specifically attach other tasks to the region by sending a packet 
containing a reference to the region. When you do that, you can 
also specify what access they have to the region. At the time, 
you must be attached with at least that much access yourself. 
Named regions, on the other hand, can be attached by any task that 
knows the name and has the appropriate access privileges to pass 
the protection check. ? 


Use the Send-by-Reference directive (SREF) to send a region by 
reference, with the following input parameters: 


Receiver task name 
WDB - Region ID : 
offset into region - sent unchecked to receiver 
length to map - sent unchecked to receiver 
window status word —- determines how receiving 
task is attached 
address of buffer - 8(18) word buffer which is 
sent to the receiver 
Event flag - if specified, set when the reference 
is received, not when it is queued up 
(in the receive-by-reference queue) 


The receiver task is attached to the region when the reference is 
queued. This avoids the problem of the region being deleted if 
the sender exits before the receiver receives’ the region. 
Remember that private regions are always marked for delete on the 
last detach. 


If you are uSing an event flag for synchronization, note that the 
flag should be used to notify the sender when the receiver 
receives the region by reference. It is not the same as the Send 
and Receive Data directives, where the flag is set when the 
reference is queved. That flag should be used to notify the 
receiver. 
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The receiver follows a somewhat modified procedure to access’ the 
region, as follows: : 


1. Create window 


2. After reference is queued, Receive-by-Reference (fills in 
region ID in WDB) 


3. Map to region 
4. Use region 
5. Detach from region 


Use the Receive-by-Reference directive (RREF) to receive a 
reference to a region, with the following WDB input parameters: 


Window Status Word - WS.MAP (29@(8)) for receive and map 
WS.RCX (100(8)) for receive data or exit 


Buffer Address - 1@(18) word buffer for sender task 
name (in Radix-5@ format) and data 


The following WDB output parameters are returned, all asset by 
the sender: 


Region ID 

Offset into region 

Length to map 

Window status word - describes how attached 


If the WS.MAP bit is set, the Executive maps the window to the 
region, using the offset, length, and window status word access as 
-sent. If a separate Map directive is used, the receiver can first 
check and/or modify those parameters before mapping to the region. 
WS.RCX set tells the Executive that the task is to EXIT if there 
are no packets in the Receive-by-Reference queue. 
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Examples 8-4 and 8-5 show how to create a pair of tasks, a sender 
task and a receiver’ task. The sender, Example 8-4, creates a 
private region, initializes it, and sends a reference to it to the 
receiver. The receiver, Example 8-5, in turn receives’ the 
reference, displays the data, and then exits. One run session is 
included for both examples. The following notes are keyed to 
Example 8-4. 


@ The RDB for the region. The name is defaulted to create a 
private region. 


@ The WDB for the virtual address window. The length 
actually mapped will be returned after mapping. Read 
access is automatic for map, so WS.WRT gets’ read/write 
access. 


3) Create and attach to region, create virtual address window 
and map it to the region. 


@ Fill the region with ASCII M's. 
@ Send-by-Reference to RCVREF (Example 8-4). Event flag 1 
will be set when RCVREF actually does a 


Receive-by—Reference. 


6 Display message saying region created and sent. Then wait 
for event flag 1 to be set. 


Display message saying RCVREF received region. 


Exit. The Executive will detach us from the region. Note 
that even if SNDREF exits before REVREF received, the 
region will not be deleted because RCVREF is attached when 
the reference is queued. The region is deleted only after 
- both SNDREF and RCVREF detach. 


291 


.e 


Stare 


or ed 


aa 
Ve 


2 Ne 


Se ay ee eae ea 
a a a a) 


Re Ve veya & 


seh 


31 


(C 
(: 


C 
oe 


DYNAMIC REGIONS 


FROGRAM SNOREF 
File SNOREF.FTN 


This Frogram creates @ 64-word unnamed region and 
fills it with ASCII characters. It then sends it by 
reference to task RCVREF» and waits for RCVREF to 
receive the resion.(This is signalled by event fleas 
#1.2 SNUREF then frrints 8&8 messsse and exits. Since 
Lie area is urnnameds it is automatically deleted when 
the last attached task exits. 


Task-budle instructioms? 


PLINK/MAP/CODESFPP/OFP TIONS SNOREFyL Bs Cl» 1 IFOROTS— 
~2/L TBRARY 

Ortion? WNOWS=1 

Oetion? VSECT=DATA: 1600002200 

Oetion? <RET> 


Install and rum instructions? RCVREF must be installed. 
Rum SNYIREF firsts then rum RCOVREF,. , 


ROB = Region definition block with the followings 
Frorerties? 


Size 2 32-word blocks 

Name none 

Fartition GEN 

Frotection WOtnmonerySY I RWEDyOWSRWEL » 
GRinone 


Attach on creation 
Read and write access desired on attach 


WOR = Window definition block with the followins 
rrorerties? 


AFR 7 
Size “ 2 32-word blocks 


Offset in region OO 32-word blocks 
Length of resion 2 32-word blocks 
Mar on create with write access 


INTEGER ROBC8) »WORC8) yROVC2) 


> This common block will sglisgnm with the address window 


COMMON /TIATA/INATAC64) 
Initislize the RIB 

TATA ROB/O+s"22020%s3RGENe SR y"43y9 "1700177 
Initialize the WOR 

DATA WOES "*3400909 "290908 "29 "202907 
Name of receiver task 

NATA ROV/SRRCOVs SRREF/ 


Example 8-4 Send-by-Reference (Sheet 1 of 2) 
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C Code 
CALL CRRGCROBy INS) ! Create resion 
@ IF ¢(inS «LT. 0? GOTO 100 ! Check for error 
WOER¢4)=ROBC1) ! Move resion id to WIR 
CALL CRAWCWOB, TDS) ! Create window 


IF (10S .LT. 0) GOTO 200 ! Check for error 
C Fill resion with data 
4) E 10 T#1964 
10 ITTVATACT 3=7 MM? 


* 


> Send-hy-reference to receiver task» set event flag 1 
> when received 
CALL SREFCROVslsWhBy » TOS) 
IF (10S «LT. 0) GOTO 400 ! Check for error 
TYFE xX»’ SNODIREF HAS CREATED THE REGION AND HAS 
6 1 SENT IT TO RCVREF.¢ ! [Tlisrlay message 
CALL WAITFR(1,INS) ! Now wait for recertion 
IF (10S «LT. 0) GOTO S00 ! Check for error 
7) TYFE x»’ RCVREF HAS RECEIVED IT. SNOREF IS NOW 


Hane & sas | 


LEXITING. ’ ! Write message 
GOTO 600 ! And sa exit 

C Error handling code 

100 WRITE (Svyl10)7T0S 

110 FORMAT (€’ ERROR CREATING REGION, [DSW = ’»f4) _ 
GOTO 600 

200 WRITE (S»210>7T0S 

210 FORMAT ¢€° ERROR CREATING WINDOWs DSW = ’»T4) 
GOTO 600 

400 WRITE (3241007105 

410 FORMAT (’ ERROR IN SENII-BY-REFERENCE» D09W = ’sI4) 
GOTO 600 

500 WRITE (SsSi0 ors 

S10 FORMAT (° ERROR ON WAITs DSW = ’sT4) 


600 @ care exit 
3 ENII 


Example 8-4 Send-by-Reference (Sheet 2 of 2) 
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The following notes are keyed to Example 8-5. 


@ %wobsB for virtual address window. The size is 290(8) 
32-word blocks, a full 4K words. The offset into the 
region, the length to map, and the access will be filled 
in on receive. Since the length to map sent by SNDREF is 
two blocks, 2 will be used in mapping. Note that the 
window can be more than two blocks long. WS.MAP must be 
left clear until after the window is created. Otherwise, 
the Executive will try to map the window to the region, 
causing an error. See the discussion which follows. 


Create the virtual address window. 


WS.MAP (200(8)) must be set in the Window Status word 
(word 7) of the Window Definition Block, so that the task 
will map as part of the Receive-by-Reference. 


Receive-by-reference and map. 


Get length actually mapped (two blocks, same as length of 
region) and convert from blocks to bytes. Just display 
that many characters. 


©@ Display all characters with one WRITE. 


7 Exit. The Executive will detach the task from the region. 
When both tasks have detached, the region will be deleted. 


The receiver may map after the receive-by-reference or as part of 
the receive-by-reference. If the receive-by-reference and the map 
are combined in one directive, issue the Receive by Reference 
directive with the WS.MAP bit set. In that case, the WS.MAP bit 
must be clear when the window is created since you can't map until 
you receive. This is necessary because even though the receiver 
is attached to the region when the reference is queued up, the 
region ID isn't filled in the WDB until the receiver executes the 
Receive-by-Reference directive. So if you receive and map in one 
call, issue the Create Address Window directive with the WS.MAP 
bit clear, and then set it before issuing the Receive-by-Reference 
directive. If you use a separate Map directive, the WS.MAP bit 
can be left clear. 
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FROGRAM RCVUREF 


File RCVREF.FTN 


REGIONS 


Frogram to receive-hy-reference a resion from SNIDREF » 
mare to the resion»y read ASCII data from the resionys 
detach from the restiionsy and exit. The resion will be 
deleted on last detach. 


Task-huild instructions? Inelude these ortions 


WNDWS=1 


VSECT=TATA? 1600003 20000 


Install and rum anstructions: RCVREF must be installed. 
Run SNOREF firsts then rum RCOVREF. 


WOR = Window definition block with? 
AFR fs 
Size 20068) 32-word blocks 


Allow for full AFR use 
set byw sender? 


These sre filled in on receivey 


Offset im resion O Je-word blocks 
Length of redion O 32<word blocks 
reset after marrins 


ACCESS 


NOTE? Must mar after receiving Cor as rart of receive) 
INTEGER WOR(8) 21% 
@ vata w0B7 "3400101 *2001010909090/ 


> This common block will gligm with the address window 


COMMON /DATA/TOATAC* 10000) 


> Create address window--do not mar at this time 


CALL. CRAWCWOBy INS) 
Check for error on create 
IF (10S .LT. 0) GOTO 200 


> Now set WOR status for marring--will be done bys receive-hy-reference 


WOBC7)=WORC7)+"200 
Receive-by-reference and mar 

CALL RREF CWORy » INS) 
Check for error 

IF (10S .LT. 0) GOTO 100 


Example 8-5 Receive-by-Reference (Sheet 1 of 2) 
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C Calenulate mumber of words of date ~ length in blocks 
CG returned et WORCS) 

NCHAR = 32kWIIBC6) 

WRITE(CS910) CINATACT) » T=1»NCHAR) 


10 FORMAT (€¢% “9 3282) 
(2 Go exit 
GOTO 300 
: Error messages 
100 WRITE CSy 210.008 
110 FORMAT ¢°’ ERROR ON RECEIVE-BY-REFERENCEs [1ISW =’ »9I4) 
GOTQ 300 
200 WRITE (Ss 210) 10S 
210 FORMAT ¢(’ ERROR CREATING WINDOWs DSW =’»T4) 
300 @ cat exit 
END 


Rum Session 


INS ROVUREF 
“RUN SNOREF 

SNOREF HAS CREATED THE REGION ANID HAS SENT IT TO RCUREF. 
RUN RCOVREF 


ROVREF HAS RECEIVED IT. SNIIREF IS NOW EXITING. 
MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMM MM MMM MMMM 
MMMMMMMMMMMMMMMMMMMMMMMMMM MMMM MMMM MMMM MM MMMM MMMM MMMM MMMM 


Example 8-5 Receive-by-Reference (Sheet 2 of 2) 
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THE MAPPED ARRAY AREA 


A large core resident data area may be set up by using the FORTRAN 
VIRTUAL statement. The VIRTUAL statement provides the Task 
Builder with the information required to create a mapped array 
area. The VIRTUAL statement is very similar to the DIMENSION 
statement except that all space reserved for a VIRTUAL array is in 
a separate area within the task region. 


Figure 8-3 shows a task uSing a mapped array area. The Task 
Builder sets things up so that when the task is initially loaded, 
the task region is larger than normal, with the mapped array area 
set aside in memory immediately below the task header. The task 
is automatically attached to the region since it is part of the 
task region. 


The area may be any size as long as the task image and the mapped 
array area fit into the partition. This means that it may be 
larger than 32K words. However, due to the subscript limitation 
of 32767 in FORTRAN, a single array cannot have more than 32767 
elements. Typically, the virtual address window maps only a 
portion of the region at a time using a single APR. Once you have 
referenced an element in a virtual array, the APR is set up.to map 
to the nearest 4K boundary in the array. Hence, assuming an 
integer array IARRAY, if your first reference is to IARRAY(1), 
then any element in the virtual array between IARRAY(1) and 
IARRAY (4896) can be maped with the current setting of the APR. 


However, if a reference is made to an element with a subscript 
higher than 4996, the APR used for the 4K window must be remapped. 
Hence, consecutive references to IARRAY (1), IARRAY (5888), 
IARRAY(2), IARRAY(5@@1), etc., will cause a remapping on each 
reference, thereby inducing some additional overhead. Note that 
all mapping is transparent to the user; however, knowledge of how 
mapping is performed, and when, can aid you in designing your 
programs to reduce the overhead required by remapping. 


Since the area isn't set aside until the task is’ loaded into 


memory, any initialization of the area must be performed at run 
time. 
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PHYSICAL 
MEMORY 
VIRTUAL 
MEMORY 
am) 
(4K WORDS) \e. 
160000 APR 7 aN ce 
Nol 
APR 6 * 
APR 5 \ ‘ 
\ \ 
sical | IMAGE \ \ 


(28K WORDS) 
APR 3 


APR 2 


~ APR 1 


AGAEYG? Wace eS Re Ss \ HEADER & STACK 


G) INITIAL LOAD AND MAP 


(2) TOTAL SPACE INITIALLY 


ALLOCATED. 4K WORD eine 
AREAS MAPPED AS AREA 
NEEDED. 


(32K WORDS) 


TK-7739 


Figure 8-3 The Mapped Array Area 
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Example 8-6 shows how to create and use a mapped array area. The 
following notes are keyed to the example: 


Create the virtual array IDATA with 32000 elements. 
Data to be placed into various parts of the virtual array. 


Put 'Al' into IDATA(1) and 'G7' into IDATA(2). After the 
first reference, the mapping is set up to allow reference 
to any element up to IDATA(4996) without remapping. 


Put data into elements IDATA(4997) and IDATA(4998). Note 
that the window had to be remapped to access the second 4K 
of the mapped array. This is transparent to the user. 


Put data into the third 4K block. Remapping needed. 
Put data into the fourth 4K block. Remapping needed. 
Retrieve data from each of the four 4K blocks. Remapping 
required for each reference. The mapping order for 
displaying the data is different just to show that’ the 


order need not match the original order for placing the 
data into the region. 
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PROGRAM VIRTAR 
C File VIRTAR.FIN 


C 
C VIRTAR makes use of the marred erray ares bys using 2 
() FORTAN virtual array. It rlaces data in 4 different 
G 4K word blocks of the area and then diselays the 
C date at the terminal. 

INTEGER DATASDATRByDATCsATIY ATG 


C Set ur the virtual grray in the marred array area 


VIRTUAL INATAC32000) 
C Tefine data values to he rlaced in the array 
2 | TATA DATAsTIATB»sDATC /’AL’ »’B2%9’C37 
DATA DATOSOATG 4°04! “G77 
C Flece data in ist 4KW block/ IDATACL) ~ INATAC4094) 
3 IDATAC1)=IIATA 
IQATAC2)=DATG 
CoRlace date in 2nd 4KW block/ ITATAC4097) - IDATACB192> 
rs) Tore eee auete 
IQATA(4098)=DATG 
C Place date in 3rd 4KW block/ IDATAC8193) - IDATACI2288) 
5 ipetateies ane 
IQATAC8194)=DATG 
® Flace date in 4th 4KhW bloeck/ ITDATACL2289) -IDATACI6384) 
rs) Pree ener 
IDATACL2290)=NATG 
C Write data from ist 4KW block 
WRITE (S100) IDATACL) ss IDATACS) 
CO Write data from 2nd 4KW block 
WRITE (S100) ITIATAC4O97) »s IDATAC 4098) 
CO Write date from 4th 4KW block 
WRITE (Sv100) TDATACI2289) sINATAC1 2290) 
C Write date from 3rd 4KW block 
WRITE (S¥100) IDATAC8193) »IDATAC8194) 
100 FORMAT ¢€% ‘’sA29A2) 
CALL EXIT 
END 


Kur Session 


*RUN VIRTAR 
ALG? 
B2G67 
0467 
C3G7 


Example 8-6 Use of the Mapped Array Area 
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Now do the tests/exercises for this module in the Tests/Exercises 
book. They are all lab problems. Check your answers against the 
solutions provided, either in that book or in on-line files. 


If you think that you have mastered the material, ask your course 
administrator to record your progress in your Personal Progress 
Plotter. You will then be ready to begin a new module. 


If you think that you have not yet mastered the material, return 
to this module for further study. 
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FILE 1/0 


INTRODUCTION 


The RSX-11M file system is composed of three parts. 


e File structures - the organization and data structures 
maintained on the mass storage volumes themselves 


e Ancillary Control Processors (ACPs) - tasks which maintain 
the file structures and provide access to them 


e File access routines - provide user-written tasks with an 
interface to ACPs, which provide and maintain organization 
within files. 


This module reviews some basic information about file storage, and 
provides general information about the RSX-11M primary file 
structure called FILES-1l, and its ACP. This module also presents 
an overview and comparison of the two supplied file access 
Subsystems, File Control Services (FCS) and Record Management 


Services (RMS). The following module provides details on 
programming using FCS, which is the more widely used subsystem. 


OBJECTIVES 


1. To describe the steps involved in file I/O 


2. To describe the FILES-11 structure and how the F11ACP 
maintains that structure during file I/0 


3. To identify the advantages of using either FCS or RMS’ for 
file access. 


RESOURCES 


1. IAS/RSX-11 I/O Operations Reference Manual, Chapters 1 and 
5 , 


2. RMS-11 User's Guide 
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OVERVIEW 


Quite often in an application you need to store data on a 
peripheral device (disk, magtape, etc.) for later retrieval. To 
write such an application, you must know something about’ the 
different devices which are on your system. In addition, you must 
understand the file structure and its support systems. Once you 
know that, you can learn the procedure for actually performing I/O 
operations. | 


TYPES OF DEVICES 


Record-Oriented Devices 
Record-oriented devices have the following characteristics. 


e Data is handled a record at a time. 
e There is no file structure. 


Terminals, line printers, and card readers are all record-oriented 
devices. They are not designed for storage and fast retrieval of 
data, but are designed instead to support interactive sessions or 
provide hard copies of reports and other data. 


File-Structured Devices 


File-structured devices have the following general 
characteristics. The data they contain: 


e Can be handled in files 
e Can be stored and retrieved quickly 


e Is typically stored on a storage medium which can be moved 
from one device to another. 


Hard disks, floppy disks, and magtape are examples of 
file-structured devices. The following definitions should prove 
helpful in our discussion. 


a file - a collection of related data; therefore, a 
logical unit of mass storage. 
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volume - a physical unit of mass storage consisting of a 
recording medium and its packaging. Examples are a disk 
pack, a reel of tape, a diskette, and a DECtape MII 
cartridge. 


Types of File-Structured Devices - There are two types of 
file-structures devices, sequential and random-access. The type 
is determined by the kind of access to data on it. 


Sequential devices have the following characteristics. 
e Data is retrieved in the same order as written 


e New data is always appended at the logical end of the 
tape, after the last data written 


e data cannot be written in the middle of the volume without 
losing the data past that point. 


Magtape and cassettes are examples of sequential devices. In 
essence, data is stored in order as written. To access any data, 
all data before it on the tape must be read first. 


Under RSX-11M, the magtape ancillary control processor (MTAACP) 
Supports the ANSI file structure. 


The MTAACP supports the following file setups: 


A single file on a single volume 

A Single file on multiple volumes 
Multiple files on a single volume 
Multiple files on multiple volumes 


Random-access devices, also called block-structured devices or 
block-replaceable devices, have the following characteristics. 
They can: 

® Store and retrieve data in units called blocks 

e Write or read blocks in any order 


e Rewrite blocks without interfering with other blocks. 


Hard disks (RL@1/02, RP®@6, RM@2/03), diskettes (RX11, RX211) and 
DECtape II are examples of random-access devices. 
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The FILES-11 file structure, the standard RSX file .structure, is 
Supported by the FILES-11 ancillary control processor (FI11ACP). 
FLIACP supports multiple files on a volume, but a file may not 
extend across volumes. The COPY command (PIP in MCR) maintains 
the FILES-11 structure during transfers of files within a given 
device and between FILES-11l devices on a system. 


The ANSI file structure is useful for transfers of files between 
different (possibly non-DIGITAL) systems. FILES-11 is useful 
between DIGITAL systems under RSX-11M, RSX-11M-PLUS, IAS and VMS 
if the two systems have a device in common (e.g., both systems 
have RL@2s). The FLX utility is provided to facilitate transfers 
between RSX and other DIGITAL systems which don't support 
FILES-1l1, or between systems which support FILES-11 (even. between 
two RSX-11M systems) which do not have a common FILES-11 device. 
In that case, the FLX transfer is typically made on magtape, using 
DOS or RT-11 format. © 
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COMMON CONCEPTS OF FILE I/O 
Common Operations | 
File 1/0 is often used to perform the aa ewing operations. 
e Creating a file 
° Deleting a file 
e Modifying existing data within a file 
e Appending new data to a file (or extending the file). 
Steps of File 1/O | 
Use the following three basic steps to do file I/O. 
1. Open the file. 


Specify a LUN and the file. The ACP connects a 


LUN to the file. Specify the access rights desired. 


The ACP checks against the file protection code. 

you are creating a new file, specify the 

characteristics (e.g., format and initial length). 
2. Perform the I/0 operations. 


Use macros to invoke subroutines to store data in 
file and/or retrieve data from the file. 


3. Close the file. 


Notify the system that the file operations 


completed, so that appropriate cleanup work can be 


performed. 
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FILES-11 


In order to use FILES-1l1, you need to understand its structure and 
how to interact with it. 


FILES-11 Structure 


A block is the smallest unit of storage which is read from, or 
written to, a FILES-11 device. Typically, the blocks are 256(19) 
words or 512(18) bytes long. Some devices divide or format their 
volumes into pieces which are 256(18) words long, and others do 
not. Therefore, the FILES-11 structure does some converting or 
mapping so that you work with logical blocks which are all 
Standard size. When the volume is’ formatted, logical block 
numbers are assigned to each 256(18) word area on the disk, 
starting with logical block @. Generally, the position of data on 
a FILES-11 volume can be described in three alternate ways, by: 


e Physical location 
e Logical block number 
e Virtual block number 


‘Table 9-1 compares the three ways. Figure 9-1 shows an example of 
the mapping among the different methods. Typically, you will 
reference data only within files. The files are referenced by 
virtual block numbers within the file, starting with 1. Logical 
block numbers are assigned to the entire disk, starting from @. 


The system converts virtual block number references to logical 
block number references. For example, if you request a read of 
virtual block 5, the system looks at the mapping and finds’ that 
this corresponds to logical block 1622(8). This logical block, in 
turn, is mapped to one or more specific sectors on the disk, which 
are read from the disk. 
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Table 9-1 Comparison of Physical, Logical and Virtual Blocks 


Type of Block 


Designation Size How Designated 
Physical Depends on On multi-platter disks, 
device designated by cylinder, track 
. and sector 
Logical 256 (18) Numbered in increments relative 
words to the beginning of the volume, 


starting with @ 


Virtual 256 (18) Numbered in increments relative 
words to the beginning of a file, 
starting with 1 


Typically, data is accessed as records, units which are not 
exactly one block or 512(1@) bytes long. A record is a unit of 
user specified size, corresponding, for example, to a single bank 
account or a single line of text at a terminal. 


Figure 9-2 shows how the operating system handles a request to 
read a record using FCS. The first row shows a FORTRAN READ. The 
FORTRAN READ instruction is converted by the compiler to a GETS 
call to the File Control Services (FCS) to read that record. In 
MACRO, you will issue the GETS call yourself. FCS checks to find 
out which virtual block within the file contains that record and 
issues the QIO directive for you. The Executive converts’ the 
virtual block number to its corresponding logical block number and 
issues a read logical block QIO. The driver then converts’ the 
logical block number to the appropriate physical locations, and 
reads a block of data into memory. The record itself will then be 
located within the block of data. 


The second row shows a BASIC-PLUS-2 READ under the _ Record 
Management Services (RMS). The BASIC-PLUS-2 compiler converts the 
READ to a RMS SGET call. RMS converts this to a QIO, to read _ the 
corresponding virtual block. From that point on, the steps are 
just like those in the FORTRAN example. 
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FILE SAMPLE.TXT;1_ 


VIRTUAL 
BLOCK #'S 
(IN THE 
FILE) 
% j = 


Nae 
Ss < 
we * eS i: 
<= N ce 
LOGICAL 
#'S (ON 
THE VOLUME) \ 
PHYSICAL 
LOCATIONS 
(ON THE | 
VOLUME) 


NOTE: BLOCK NUMBERS ARE IN OCTAL 


TK-7738 


Figure 9-1 Example of Virtual Block to Logical Block, 
to Physical Location Mapping 
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MACRO—11 
FORTRAN ENTERS HERE 


: TRANSFER 
VIRTUAL LOGICAL FROM PHYSICAL 
BLOCK # BLOCK # eee ON 


FORTRAN RECORD 


BASIC—PLUS—2 BMS 


COMPILER 


BASIC—PLUS—2 RMS RECORD 
RECORD , 


TK-7743 


Figure 9-2 How the Operating System Converts Between 
Virtual, Logical, and Physical Blocks 


Figure 9-3 shows the FILES-11 structures which are used to support 
virtual-to-logical block mapping. Every FILES-11 volume has a 
number of system files on it, one of which is the. Index File 
(INDEXF.SYS). The Index File contains certain blocks which are 


for system use, plus a file header block for each file on _ the 
volume. 


Each file header block contains file retrieval pointers which are 
used in mapping virtual blocks to logical blocks. Each file 
retrieval pointer locates a range of contiguous logical blocks. 
The first byte tells how many contiguous blocks are in the group, 
and the next three bytes specify the logical block number of _ the 
first block in the group. Therefore, in the figure, there are 
five contiguous blocks, starting with logical block 336851(10). 
Virtual block 1 = logical block 336851(18), vb 2 = 1b 336852(19), 
vb 3 = lb 336853(18), vb4 = 1b 336854(18), and vb 5 = Ib 
336855(18). The next group of blocks, starting with virtual block 
6 has 51(1@) blocks and begins at logical block 336998(198) up 
through logical block 336958(18). The last 17(19) virtual blocks 
(virtual blocks 57(18) to 73(18)) begin at logical block | 
337806(18) up through logical block 337922(19). These file 
retrieval pointers are updated each time a change in block 
allocation occurs as a result of a file I/O operation. 
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VOLUME 


LLL 


INDEX FILE 


Pd Ne 
y ~ 
FILE | FILE| FILE| FILE|, ,, | FILE 

HDR | HDR | HDR} HDR HDR 

1 2 3. 4 5 7 \\10 ON 


FILE HEADER 
FILE 3 


-RETRIEVAL POINTERS 


y \ 
Se ew 
_ Eee 
SIZE 1ST LBN 
5, H:005 L:021723 = 336851. 
51, H:005 L:022004 = 336900. 
17. H:005 L:022156 = 337006. 
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Figure 9-3 FILES-11 Structures Used to Support 
Virtual-to-Logical Block Mapping 
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Directories 


The operating system identifies files by file IDs, which are used 
to calculate the location of the file header within the index 
file. When you need to locate a file, it is difficult to remember 
where it is on the disk, or even what its file ID is. Instead, 
you use a file specification, a more English-like way of 
identifying a file. An example of ae file specification is: 
DR1:({5,6]SAMPLE.TXT;1. Tasks you write also usually identify 
files with a file specification. Directories are structures set 
up on a FILES-11 volume that are used to group files together, and 
to convert file specifications to file IDs. 


A directory is a list of files belonging to a single user, or 
grouped together for other organizational purposes. An example of 
files grouped together for organization is the libraries in User 
File Directory (UFD) [1,1] on the system device. On a FILES-11 
volume, a directory is a special file containing a list of the 
files belonging to that user or group. For each file, the list 
has: 


e The file specification: name, type, and version number 
e The file ID | 


The file ID consists of a file number and a sequence number. The 
file number identifies the offset within the index file to the 
virtual block containing the file's file header. The sequence 
number is used to distinguish this file from previously deleted 
files which used the same file header. There are two levels of 
directories on a volume, as follows. 


@e One Master File Directory (MFD) which is directory [8,9] 
@e One or more User File Directories (UFDs) 


Figure 9-4 shows the relationship between the two levels and_ the 
files. The MFD contains a list of the system file, plus one entry 
for each UFD on the volume. Each UFD file has a name of the form 
gggmmm.DIR, where [ggg,mmm] is the user identification code (UIC) 
of the owner. Each UFD contains a list of the files in that 
directory. 
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MFD 

[0,0] 
UFD UFD 
(200, 1] [303,5] 


HIYA.MAC;1 -FLY.TXT;1 . IZZY.TXT;1 OZY.TXT;1 LOGIN.CMD;1 


TK-3965 


Figure 9-4 Directory and File Organization on a Volume 


Figure 9-5 shows the steps used in locating and accessing the 
blocks of the file DR2:[5,6]SAMPLE.TXT;1. The device name, DRI: 
tells which device or volume to look on. The operating system 
reads the MFD file header to find the retrieval pointers for the 
MFD file itself. It converts the virtual blocks to logical blocks 
and reads the blocks of the MFD file. It searches through the 
directory list for the UFD [5,6], namely the file @85006.DIR. 


When it finds that name in the list, it uses the file ID to locate 
the UFD file header. It reads the retrieval pointers there, 
converts the virtual blocks tto logical blocks, and reads’ the 
blocks of directory [5,6]. It looks for an entry SAMPLE.TXT;1. 
When it finds that entry, it uses the file ID to locate _ the 
SAMPLE.TXTS file header. It then reads the retrieval pointers in 
the file header, converts the virtual blocks to logical blocks, 
and reads the blocks of the file itself. 


If this sounds like a lot of work, it is. Later, you will learn 


about a way to go directly to the file header using the file ID if 
a file is opened a second time during a task's execution. 
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DR 1:[5,6)SAMPLE. TXT; 1 


MED 
HEADER 

POINTERS 005005.DIR FILE ID | wep 

005006.DIR FILE ID 

UFD 
HEADER 

POINTERS 

THIS IS A SAMPLE FILE 

FILE 
HEADER 


FILE 
SAMPLE.TXT;1 


POINTERS 
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Figure 9-5 Locating a File on a FILES-11 Volume 
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Five Basic System Files 
There are five basic system files found on all FILES-11 volumes. 
They are all created when the volume is initialized and are all 
entered in the MFD. Two of these, the Index File and the Master 
File Directory, have been mentioned previously. The five files 
and their purposes are as follows. 

e The Index File: INDEXF.SYS. 


- Boot block - used when a system volume is bootstrapped 


- Home block - contains volume identification and other 
information 


- Index file bitmap - a record of which header blocks 
are in use; used by F11lACP when allocating header 
blocks to files 

- File header blocks for all files on the volume 

° The Storage Map: BITMAP.SYS. 
- A record of which blocks on the volume are in use 
- Used by F11ACP when stigeating blocks to files 

e The Bad Block File: BADBLK.SYS. 
- A list of blocks on the volume known to be bad 

e The Master File Directory: 6@@®@8.DIR. 

' ae Entries for che cigs system files 

- An entry for each UFD file 


e The System Checkpoint File: CORIMG.SYS. 


- ‘Space used for checkpointing if the system manager 
allocates space in it. 
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Functions of the ACP 


The F11ACP maintains the FILES-11l structure on a volume during its 


use. 


The most elementary functions performed by the ACP are as follows. 


Maintaining the File Header Blocks. This includes: 


Allocating and initializing a file header when a_ file 
is created 


Recovering a file header for reuse when a file is 
deleted 


Maintaining file attributes such as protection code, 
length, etc. 


Maintaining the file retrieval pointers 


Maintaining directories. This includes: 


Creating directory entries when a file or UFD is 
created, or when a file synonym is created (e.g., by 
the PIP /EN switch) 


Removing entries from directories when a file is 
deleted or a file synonym is removed (e.g., by the PIP 
/RM switch) 


Maintaining block allocation. This includes: 


Allocating blocks to files when a file is created or 
extended | 


Recovering blocks for reuse when a file is deleted or 
truncated — 


Controlling and facilitating task access to files. This 


includes: 


Checking protection codes to determine access rights 


Connecting a task's LUN to a file to allow virtual 
block I/0 


Controlling shared access to files. 
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Table 9-2 shows the F11ACP functions performed when you request 
some typical file I/O operations. | 


Table 9-2 Examples of Use of F11ACP Functions 
Operation Requested Functions Performed by F11ACP 


Create a new, permanent file 1. Allocate a header for the file. 
and write data to the file. 

2. Allocate blocks to the file, 
when it is opened and/or when 
data written requires that ex- 
tensions be added. 


3. Create a directory entry for 
the file. 


4. Assign a LUN to the file. 
5. When the file is closed, write 


the updated file attributes to 
the file header, deassign the 


LUN 
Read data from an existing 1. Assign a LUN to the file. 
file. 
Delete a file. 1. Remove the directory entry for 
the file. 
2. Deallocate the blocks of the 
Eile; 
3. Deallocate the header for the 
file. 
Append data to a file. 1. Assign a LUN to the file. 
| 2. Allocate extra blocks to the 
file. 
Create a temporary (scratch) 1. When file is opened, allocate 
file. a header, allocate blocks, and 


assign a LUN. (No directory 
entry is created.) 


2. When file is closed, de- 


allocate blocks, deallocate 
header, and deassign LUN. 
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Figure 9-6 shows the flow of control during the processing of an 
I/O request. This figure parallels Figure 9-2, which shows how 
the operating system converts virtual blocks to logical blocks’ to 
physical locations. 


The user task issues a read record request which is converted by 
an FCS routine in the user task to a QIO, to read a virtual block. 
The Executive converts the virtual block number to a logical block 
number, using file retrieval pointers in pool. These retrieval 
pointers are built by F11lACP from the retrieval pointers in the 
File header. The Executive issues a read logical block request to 
the driver. The driver converts the logical block number to the 
actual physical locations and copies the block into the user 
buffer. 


For additional information on the FILES-11 structure, see Chapter 
5 of the IAS/RSX-11 I/O Operations Reference Manual. . 


USER TASK POOL 
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Figure 9-6 Flow of Control During the Processing of an. 
; I/O Request 
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OVERVIEW AND COMPARISON OF FCS AND RMS 


Common Functions 


The File Control Services (FCS) and the Record Management Services 
(RMS) both offer easy methods for performing file I/O. The 
operator or programmer need not be concerned with all the 
nitty-gritty details, but can instead let FCS or RMS take care of 
them. Both perform the following functions: 


e Serve as an interface to the ACPs 


e Allow 1/0 to the virtual blocks of a file on a 
block-by-block basis (Block I/O) 


e Divide files into logical records and allow I/0 to 
individual records within a file (Record I/O) 


e Allow the programmer to process records using one of the 
following buffers (Figure 9-7) 


- A buffer reserved by the programmer with another 
buffer transparently used by FCS or RMS (move mode) 


- Directly in the buffer used by FCS or RMS (locate 
mode) 


e Allow device independent I/O - the routines are written to 
work correctly with terminals, disks, etc. 


e Provide mechanisms for controlling shared access to files. 
Beyond that, FCS and RMS each offer a variety of file 


organizations, record types, and access modes. These are 
described in the following sections. 
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Figure 9-7 Move Mode and Locate Mode 
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FCS FEATURES 


File Organizations 


Essentially, all FCS supported files are ‘sequential, meaning that 
new records are added at the end of the file, and records are 
stored in the order they are written. Figure 9-8 shows a file 
with sequential organization. 


CELL NO. 1 


. 2 3 4 5 
Y J 


Figure 9-8 Sequential Files 


n 


~.. | RECORD 
an 
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Supported Record Types 


FCS supports two record types, fixed-length records and 
variable-length records. Variable-length records may be sequenced 
or nonsequenced. An example of each type of file is shown below 
with the following three records: 


12345 
123 1234 
AAAA BBBB CC D 


The examples are in DMP format; the six-digit number on the left 
is the byte count in octal of the first byte in that row. Then 
16(18) = 2@(8) bytes follow in order in octal. Below each byte in 
octal is its equivalent in ASCII. An underscore (_) stands for an 
ASCII blank. Consult the examples as you read the description of 
each record type which follows. 


325 


Examples: 


FILE I/0 


Fixed-Length Records (record length 


G08 961 862 963 
1 2 3 
@20 @48 xxx @61 
_ pad 1 
G40 049 949 949 
968 040 194 940 
D 


Variable-Length 


G08 B65 BBH B61 

1 

G20 063 864 G16 
4 

G48 849 104 xxx 
D 


G64 865 
4 5 
G62 963 
2 3 
xxx 1901 
pad A 
GZ4G G94 


Records 


G62 963 
2 3° 


G08 191 
A 


XXX XXX 


G46 B48 


G40 961 
in oe 

191 101 
A A 

XXX XXX 
pad 


Sequenced Variable-Length Records 


G00 BO7 BOB BH1 BHH G61 G62 G63 B64 
1 2 


3 


4 


G@26 863 B48 B61 B62 G63 G64 G2G BBB 


4 


a a te 2. 3 
G40 162 182 162 049 193 103 949 104 


B B B 


C 


C 


D 
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G49 G48 


G63 964 
3 4 
G48 182 

B 


XXX XXX 


G10 
G49 


XXX 


XXX 
5 pad 
GOO 


XXX 


948 


40 
G40 
49 


XXX 


G49 
G49 
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Fixed-length records all contain the same number of bytes. 
Therefore, the location of the beginning of any record within the 
file can be computed from its record number. With all record 
types, each record begins on an even word boundary. This means 
that in files with fixed-length records, if each record contains 
an even number of bytes, the next record begins immediately after 
it. If, on the other hand, each record contains an odd number of 
bytes, one byte is unused after each record, and the next record 
begins at the next word boundary. This unused byte is called a 
pad byte. 


Variable-length records may each have different lengths. For all 
files with variable-length records, the first word of each record 
contains a byte count, telling how many bytes are in that’ record. 
For variable-length nonsequenced records, this count word is 
followed by the data itself. 


Following this, at the next word boundary, is the byte count for 
the next record and then its data. To locate a given record 
within the file, you must first read the byte count for the first 
record in the file. You can then use the byte count to locate the 
second record. You then continue reading byte counts and locating 
successive records until you reach the desired record. 


Variable-length sequenced records contain a byte count, a _ user 
specified sequence word, and then the data itself. The sequence 
word can contain the record number or any other user’ specified 
value. Variable-length sequenced records are not used much under 
FCS. They are supported to allow compatibility with RMS 
variable-with-fixed-control records. 
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Table 9-3 Comparison of FCS. Record Types 


Record 
Type 


Fixed-Length 


Variable-Length 
(nonsequenced) 


Variable-length 
(sequenced) 


4 


Characteristics 


Record length 
set when file 
created 


Records all 
same length 
(shorter 
records pad- 
ded) 


Records may be 
of different 
lengths 


First word of 
each record is 
a byte count 


Variable length 
records, with 
an additional 
word for a user 
specified se- 


Overhead 
in File 


None 


One word per 
record (hold- 
ing record 
length) 


Two words per 
record (one 
for record 
length, for 
sequence 
field) 


Common 
Applications 


Files with 
Similar data 
in each record 


Bank account 
information, 
bad credit 
card lists, 
etc. 


Files with 
varying con- 
tents among 
records 


Files to be 
printed 
Source and 
list files 


Infrequently 
used, except 
for compati- 
bility with 
RMS. 


quence number 
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Record Access Modes 


FCS offers two record access modes, sequential access and _ random 
access. Table 9-4 compares the two access modes. The major 
difference is that with random access, the user can. process 
records in any order (e.g., record 12, then record 4, then record 
29). This is possible with fixed length records only, because FCS 
can calculate the position of each record within the file from the 
record number and the record size. 


With variable-length records, on the other hand, FCS can't locate 
record 12 unless’ it reads records 1 through 11 first, using the 
record length in the first word of each record to calculate the 
Starting position of the next record. Therefore, you must use 
sequential access with variable length records. You may choose 
either of the two access modes for fixed length records, depending 
on how your application processes the records. 


329 


FILE I/0 


Table 9-4 Comparison of Sequential Access I/O and 
Random Access I/0 


Characteristics 


Devices supporting 
this type of access 


Record types using 
this type of I/0 


Sequence of records 
in the file 


Order of processing 
records 


Overhead if records 
are processed in 
Same order as they 
are stored in the 
file 


Overhead involved 
if records are 
processed in 

order different 
from how they are 
stored in the file 


With sequential 
subroutines 
to ae record 


access. 


Sequential 


All devices 


All record types 


Determined by the 
order in which they 


. are written to the 


file 
Usually the same 
order as in the 


file (one after 
another) 


Low 


Much higher than 
random access I/0 


NOTE 
access, 


for much faster 
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special 
allow the user to save pointers 
subsequent 


Random Access 


Block-structured 
devices only 


Fixed-length 
records only 


Usually determined 
by the order in 
which they are 
written to the file 


In any order, as 
specified by the 
user (using the 
record number) 


Low, but not as 
low as sequential 


Much lower than 
sequential I/0 


system 
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File Sharing 
A task which opens a file may choose one of the following options: 


-@ That no other accessor change any data in the file while 
it has access (“shared" read, “exclusive" write). 


- If this task desires read access, other accessors may 
have simultaneous’ read access, but no other accessor 
may have simultaneous write access. 


~ If this task desires write access, no other accessor 
may have simultaneous read or write access. 


- Any access request causing a conflict is rejected. 


e That other accessors may change the data while it has 
access ("sShared" read/write access). 


- If this task requests read or write access, other 
accessors may have simultaneous read or write access. 


- Use extreme care - Any precautions against corrupted 
data are the responsibility of the accessors. 


e That no other accessor changes any block within the file 
which has already been accessed (block locking). Shared 
access to the file is allowed, but: 


- Each block which is written to is locked for exclusive 
write access. : 


- Each block which is read is locked for shared. read 
access. 


- It is not recommended if accessing a large numbers of 
blocks, because each block lock uses four words of 
pool. 


- Any attempt to access a block which causes a conflict, 
returns an error. 
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RMS FEATURES 


File Organizations 


RMS supports three file organizations, sequential, relative and 
indexed. See Figure 9-9. Sequential files under RMS are the same 
as sequential files under FCS. A relative file is composed of a 
series of cells of uniform size. The cell size is greater than or 
equal to the largest record to be placed in the file. A single 
record may be written to a cell, or the cell can be empty. The 
cells may contain variable-length records. Variable-length 
records within relative files can be accessed randomly because 
each record is contained within a fixed-length cell. Also, when 
you read successive records in a relative file, empty records are 
automatically skipped. 


An indexed file is composed of records, plus one or more _ indexes 
-which are used to access those records. Each index is used to 
retrieve records according to the contents of a particular field, 
or key, within the record. The data records themselves are 
ordered according to a primary key which you declare when = you 
create the file. 


Figure 9-9 shows an indexed file with a single key, namely last 
name. In the example, the data records are in the bottom row, 
ordered alphabetically by last name. The index for this file 
contains two other levels, level 1 and level 2 (the root level). 


A search for a record begins at the root level. For example, to 
find the record with key value FRANCIS, search through the root 
level, checking for the first value which is greater than or equal 
to FRANCIS. The first such value is SMITH. Go to the next level 
and again search for the first value greater than or equal _ to 
FRANCIS; it is GROSS, the first value. Now go to the next level 
and search again; this time the value FRANCIS is’ found. Since 
this is level @, we have found the record. 


As new records are added to the file, they are inserted in order 
at level @ of the primary index. The primary index structure is 
adjusted for the new entry at the same time. In addition, any 
alternate index structures for other keys are adjusted as well. 
There is always one primary key, and there may be as many as 
254(18) alternate keys. 
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END OF FILE 


RECORD|RECORD|RECORD| ,,, | RECORD 
1 2 3 n 


SEQUENTIAL FILE ORGANIZATION 


. 1 2 3 4 5 n 
Yj Yl 
eeere oe mail +e, | RECORD 
Yj, Y " 


RELATIVE FILE ORGANIZATION 


CELL NO 


LEVEL? 


LEVEL o | ADAMS |... [ANDREWS | BAKER |, ,,} DAVIS | EDSON ],, | FRANCIS ||| | GROSS | HARRIS | ,,, | WELLS 
10246 50406 11022 |- 02139 | 01142 46423 64966 | 11462 43168 


INDEXED FILE ORGANIZATION 


TK-7748 


Figure 9-9 RMS File Organizations 


Level @ of the alternate keys contains pointers to the original 
location of the data record itself. If a data record is ever 
moved in order to maintain the index structure, a pointer is 
Created and maintained in the record's original location, which 
points to the data record's new location. 


One specific advantage of an indexed file over a relative file is 
that an indexed file allows you to search for records using 
several different key fields, while only the cell number can be 
used with relative files. Even with a single key, indexed files 
offer keys consisting of any ASCII characters, in contrast to just 
a cell number for relative files. 


There is, of course, more space overhead required in the file for 
the index structures. In addition, more execution time is 
required to insert new records, because the index structures must 
be updated as well. We are keeping things rather simple in the 
discussion here. For additional information, see the 
RMS-11 User's Guide. 
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Record Formats 


RMS supports three record formats; fixed-length records, 
variable-length records, and variable-length records with fixed 
control. Fixed-length records and variable-length records are the 
game as fixed-length records and nonsequenced variable-length 
records respectively, under FCS. They are both supported under 
all three file organizations. 


Variable-length records with fixed-control (VFC) contain a 
fixed-length portion, for control, followed by a variable-length 
portion. The fixed control portion may be up to 255(18) bytes 
long. A sequenced variable-length record under FCS is the same as 
a VFC record with a 2-byte (one word) fixed control portion. 


An example of the use of VFC records is a bank account file, where 
some accounts have both savings and checking, and others have just 
one or the other. The fixed control portion could contain the 
account number plus an indication of the kinds of accounts 


contained in it. The variable portion contains the account 
information for those accounts. The length of this portion 
varies, depending on how many accounts the person has. VFC 


records are supported under Sequential and relative file 
organizations only. 


Record Access Modes 


RMS supports three record access modes: sequential access, random 
access, and access by Record File Address (RFA). Sequential 
access and random access are similar to the FCS acceSS' modes, 
except that they are applied differently for indexed files. 


For sequential access on an indexed file, the "next" record is the 
record with the next highest key value using the specified key, 
not the next record added to the file. For random access, a key 
value ’ for a certain key is specified, and that record is located 
and accessed. To access a record by record file address, save 
pointers to the record (called its record file address or RFA) 
from one access, then use the pointers to subsequently access'- the 
record again. ; 


Table 9-5 describes the various access modes Supported for each 


file organization and how they work. For additional information, 
see the RMS-11l User's Guide. 
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Table 9-5 File Organization, Record Formats, and Access Modes 


Record 
Formats 
Supported 


Access Modes 
Supported 


Sequential 
Access 
Techniques 


Random 
Access 
Techniques 


Record File 
Address 
Techniques 


Sequential 
Files 


Fixed 
Variable 
VFC 


Sequential 
RFA* 


Writes and 
reads subse- 
quent records 


Not allowed 


Task can 
store RFA* of 
a record for 
later return 


* Not available in FORTRAN. 


Relative 
Files 


Fixed 
Variable 
VFC 


Sequential 
Random 
RFA* 


Writes to 
subsequent 
cells 

Reads from sub- 
sequent cells, 
skipping empty 
ones 


User specifies 
cell number of 
record to be 
accessed 


Same as sequen- 


tial files 
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Indexed 


Files 


Fixed 
Variable 


Sequential 
Random 
RFA* 


Accesses cells 
in ascending 
order accord- 
ing to user 
specified key 


User specifies 
key and key 
value to be 
used in 
accessing 
records 


Same as 
sequential 
files 
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File Sharing Features 


RMS offers more sophisticated file-sharing options than _ FCS. 
Sequential files can be shared for read access only. Relative and 
indexed files can be shared for read and write access. When 
opening a relative or indexed file, a task indicates one of the 
following options. 


@ No other accessor can change data in the file while it has 
access ("sShared" read, exclusive "write"). 


e Other accessors can change data, but subsets of the file 
are protected at a time, while in use. 


Relative and indexed files are divided into units called buckets 
(of user specified size, each 1 to 32(18) blocks long). In fact, 
all actual I/O tranfers are performed on full buckets only. In 
implementing protection of subsets of the file at a time, 
protection is on a bucket-by-bucket basis (bucket-locking). 


A bucket is locked from the time any task with write access 
accesses a record in a bucket, until that task begins operations 
on another bucket, or closes the file. This means that records 
within a given bucket can't be accessed by other tasks while 
another task with write access is using the bucket. But other 
tasks may access other buckets in the file during that time. 
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Table 9-6 summarizes our comparison of 
module discusses the details of how to use FCS in a program. 


Table 


Characteristics 
Supporting 
utilities 


Supporting 
languages 


Ease of 
file design 


Ease of 
programming 


Type of data. 
access supported 


FCS 


and RMS. The next 


9-6 Comparison of FCS and RMS 


FCS 
Standard RSX 


utilities 


MACRO-1]1 
FORTRAN IV, IV-PLUS, 


Relatively simple 


Relatively simple in 
high-level languages 


Moderate in MACRO-11 


Virtual block I/0 


Sequential record 
access 


Random access by 
record number with 
fixed-length records 


Access by record 
position pointers, 
saved from previous 
access of record 


337 


RMS 


Special RMS utilities 
to define, convert, 
etc. 


MACRO-11 

FORTRAN IV-PLUS, 
-77, BASIC-PLUS-—2 
COBOL 


Relatively complex 


Relatively simple in 
high-level languages, 
issues of efficiency 
complex 


Relatively difficult 
in MACRO-11 


Virtual block I/0 


Sequential record 
access 


Random access by 
cell number ina 
relative file 


Random access by 
key field within 
record, in an 
indexed file 


Access by record 
file address, 

saved from previous 
access of record 
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Table 9-6 Comparison of FCS and RMS (Cont) 


Characteristics FCS RMS 
Overhead in file Minimal Minimal for se- 
needed to support - quential files 


record structure 
Moderate for 
relative files 


High for indexed 


files 
Execution time Low Low for sequential 
overhead to . and relative files 
Support record 
access Moderate to high 
for indexed files, 
depending on file 
and program design, 
and file growth 
Shared access System protection on System protection 
coordination a per-file basis or on per-file or 
on an all blocks per-bucket basis 
accessed basis within a file 


Now do the tests/exercises for this module in the Tests/Exercises 
book. They are all written problems. Check your answers against 
the provided solutions in the Tests/Exercises book. 


If you think that you have mastered the material, ask your course 
administrator to record your progress on your Personal Progress 
Plotter. You will then be ready to begin a new module. 


If you think that you have not yet mastered the material, return 
to this module for further study. 
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FILE CONTROL SERVICES 


INTRODUCTION 


The File Control Services (FCS) subsystem provides the means 
through which tasks perform I/0. In FORTRAN, calls to the FCS 
routines are made indirectly through the FORTRAN Object Time 
System (OTS). 


While the FORTRAN programmer need not know how the the data 
Structures or the various calls to the FCS subroutines are used, 
this module is presented as a brief introduction to FCS. 

The first example, illustrating how a FORTRAN program creates a 
file, also shows the MACRO code needed to perform the same 
function. 

Further examples illustrate how some of the FCS features can be 
incorporated by using the FORTRAN OPEN statement and_ the 
appropriate forms of the READ and WRITE statements. 

The major portion of this module contains a brief summary, with 
examples, of the FORTRAN READ, WRITE and OPEN statements and the 
various file and record types used in writing a FORTRAN program. 
The FORTRAN programmer should be aware that each of the _ above, 


READ, WRITE, and OPEN, are translated into FCS data structures at 
compile time, and CALLs to FCS routines at execution time. 


OBJECTIVES 


1. To choose file characteristics for a specific application 
and create files with those characteristics 


2. To write tasks which read or write data using record I/O. 


RESOURCES 


1. FORTRAN IV User's Guide 
2. FORTRAN IV-Plus User's Guide 


3. FORTRAN-77 User's Guide 
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FILE ORGANIZATION VS. RECORD ACCESS 


A clear distinction must be made between the organization of a. 
file and the record access to a file. 


A file's organization refers to how the file was created via _ the 
keyword ORGANIZATION in the OPEN. 


The two possibilities are: 
ORGANI ZATION="SEQUENTIAL' 
ORGANIZATION='RELATIVE' 


‘INDEXED' is a third ORGANIZATION, but will not be discussed here. 


Once established, the file ORGANIZATION cannot be changed. The 
default is "'SEQUENTIAL'. 


The record access to a file determines how a particular program 
wants to access a file, again via the OPEN. The choices are: 
ACCESS='"SEQUENTIAL' 
ACCESS='DIRECT' 
ACCESS='APPEND' 
(ACCESS="INDEXED' will not be discussed.) 


Figure 18-1 shows the possible combinations of ORGANIZATION and 
ACCESS. | 


ORGANI ZATION ACCESS 
SEQUENTIAL SEQUENTIAL 
7 APPEND 


| ! 
| 
| . - DIRECT (if fixed | 
| length records) | 
| | 
| RELATIVE DIRECT | 
| . SEQUENTIAL | 


Figure 18-1 Possible Combinations of ORGANIZATION and ACCESS 
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READ AND WRITE ACCESS TO A FILE 


When a file is opened via the OPEN statement, the default is that 
the file is opened for read and write access. The OPEN keyword 
READONLY is used to restrict a program from write access. If you 
are the 'WORLD' to ae file (i.e., not SYSTEM, OWNER, or GROUP) 
which has 'WORLD' protection set to R (read), and you attempt’ to 
open that file without using the READONLY keyword in the OPEN, the 
open will fail. 


TYPES OF RECORDS IN A FILE 


(Sometimes Referred to as 'Record Format') 


There are three types of records (record formats) possible in a 
file via the OPEN keyword RECORDTYPE: 


RECORDTYPE='"VARIABLE' 
RECORDTYPE='FIXED' 
RECORDTYPE='SEGMENTED' 


Type VARIABLE consists of variable length records where the record 
length is kept in the first two bytes of each record. 


Type FIXED consists of records all of the same length as specified 
in the RECORDSIZE keyword in the OPEN. Since the size is fixed, 
it is not kept as an extra two bytes in the record; it is kept in 
the header of the file and is available when the file is opened. 


Type SEGMENTED consists of records which contain a single logical 
record having one or more variable length records (segments). The 
length of a segmented record is arbitrary; however, the length of 
each segment is determined by the value of the RECORDSIZE keyword. 
The default size is 133. The segmented record is unique to 
FORTRAN and can be_ used only with unformatted sequential files 
under sequential access. 


Because there is no set limit on the size of a segmented record, 
each segment contains control information to indicate that the 
segment is one of the following: 


The first segment in the segmented record (control word=1) 

The last segment in the segmented record (control word=2) 

The only segment in the segmented record (contol word=3) 

None of the above: i.e., a continuation record (control 
word=90) . 
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The control word is kept as the first two bytes in the segment if 
the record is FIXED and in the third and fourth bytes if the 
record is VARIABLE. 


When you wish to access an unformatted sequential file that 
contains fixed length or variable length records, which was not 
created by FORTRAN, you must specify RECORDTYPE='FIXED' or 
RECORDTYPE="VARIABLE' when you open the _ file. If you do not 
specify a RECORDTYPE, the default OPEN of the file will be 
RECORDTYPE="SEGMENTED' and the first word (if FIXED) or the second 
word (if VARIABLE) will be treated as a control word causing 
almost certain errors in the data. 


FORMATTED AND UNFORMATTED RECORDS 


A READ or WRITE statement can be formatted or unformatted. The 
main difference in the two is that a formatted READ or WRITE uses 
ASCII data while an unformatted READ or WRITE uses’~ untranslated 
binary data. | 


The FORM='"FORMATTED' or FORM="UNFORMATTED' is used as appropriate. 


The default is FORMATTED for ORGANIZATION='SEQUENTIAL' and 
UNFORMATTED for ORGANIZATION='RELATIVE'. 


DECLARING THE SIZE OF A RECORD 


The keyword RECORDSIZE is used to declare a specific size for a 
record. The defaults are as follows: 


FORMATTED 133 bytes 
UNFORMATTED (fixed) 128 bytes 
UNFORMATTED (variable) 126 bytes 


Note that you must specify the TKB option MAXBUF=n if you ex. ved a 
record size of 133, where n is the size in bytes of the record. 
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_ SUMMARY OF KEYWORDS IN THE OPEN STATEMENT 


ORGANIZATION = ‘SEQUENTIAL' 

= "RELATIVE! 
ACCESS = "SEQUENTIAL' 

= "DIRECT' 

= "APPEND! (sequential only) 
READONLY to disallow WRITES 
RECORDTYPE = "FIXED' 

= "VARIABLE' 

= "SEGMENTED! 
FORM = "FORMATTED! 

= "UNFORMATTED' 
RECORDSIZE = n 


The remainder of this module is a series of examples illustrating 
the various types of files and how they are OPENed and ACCESSed. 
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Example 19-1, CRESEQ, creates a file, VARI.ASC, of variable length 
records. Since the records are variable in length, the byte count 
for each record is kept in the first two bytes of the record 
itself. 


As can be seen from the run seSSion, the first record contains a 
Single character, 1. Therefore bytes @ and 1 are 9@1 and @0@. 
The next byte is 61, which is ASCII for 1 followed by a byte of 
GOO. Since the record has an odd number of bytes, the record is 
padded with a 6@@ byte. 


The next record contains an even number of bytes (2), So the 
record need not be padded. 


Although the examples. use several defaults, in order to illustrate 
the various defaults, it is recommended that no defaults be used 
when creating a file with an OPEN statement. Hence, in Example 
18-2, the complete OPEN is as follows: 


OPEN (UNIT=1,NAME='VARI.ASC' ,CARRIAGECONTROL='LIST', 
1 ORGANI ZATION='SEQUENTIAL' ,ACCESS='"SEQUENTIAL', 
2 TYPE='"NEW' , FORM='FORMATTED' ) 


While it may seem a bit tedious to include all options in the 


OPEN, it aids greatly in the readability of the program and 
relieves any question as to what was meant in the OPEN. 
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PROGRAM CRESEQ- !CREATE FILE SEQUENTIALLY 
C FILE CRESEQ.FTN 


C This task creates a file VARI.ASC of variable-lensth 
@ records using seauentisal record eccess. The records 
C are inreut from the terminal and written to the file. 
C The rrocess stors when the orerator teres CTRL/Z at 

C the terminal. 


BYTE BUFF (80) 
INTEGER LEN 


(? OPEN FILE ~- Default access is seauentials default form 
GC is formatted I/0 with seauential access 

OFEN CUNT T=1 »NAME=’VART.ASC’ » TYPE=’NEW/ » 

1 CARRIAGECONTROL=’LIST%) 
C Loo 
10 READ (SelivEN=100) LEN» BUFF ! Read record 
ii FORMAT (Qs80Al1) 

WRITE (C1912) (BUFF CT) »T=1*LEN) ! Write record 
L2 FORMAT (80A1) ! 6to file 

GO TO 10 
2 Close file and exit 
100 CLOSE CUNT T=1) 

CALL EXIT 

ENT 


Rum Session: 


“RUN CRESEQ 


4444 
Now is the time for all good. 


Tumse of DR2ICSOS»301IVART.ASC§6 ~ File ID 405549570 
Virtual block 0%000001 - Size Si2. bytes 


000000 001 000 0461 000 002 000 062 062 003 000 063 063 0463 000 004 000 
000020 064 064 064 064 035 000 116 157 147 040 151 163 040 164 150 145 


000040 040 164 151 155 145 040 146 157 162 040 141 154 154 040 147 157 
000060 157 144 056 000 000 000 000 000 000 000 000 000 000 000 000 000 


Example 19-1 Creating a Sequential File with Variable Length Records 
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Example 19-2 shows the equivalent MACRO code to produce the same 
file as Example 19-1. 


Example 18-3, SEQFOR, reads the first five records from the file 
VARI.ASC and displays them on the terminal. 


eTITLE CRESEQ 
+IQENT /O17 
+ENABL LC 5 Enable lower case 


+ 


File CRESEQ.MAC 


CRESEQ creates a file VART.ASC of variable-length 
records using seauential access. It reads records from 
Tidy and erlaces them in the file. A “Z terminates 
inreut and closes the file. 


Assemble and task-build instructions: 
MACRO/LIST LBitlisLIPROGMACS/LIBRARY » devi lufdd- 


~SCRESEQ 
LINK/MAF CRESEQsLBi Cis LIFROGSUBS/LIBRARY 


“So “> “We “> “> “Se Mo > “SP we Se SP? “SP 


“> 
i 


»*MCALL EXST#C sQIOWSC >QTOWS eDIRG ¢ Sustem macros 
*MCALL FSRSZ$sFUBDIF Ss FOATSAyFIRCSAsSFIOPGA §¢ Sustem 
»>MCALL NMBLK&sOPENSWeFUTSéeCLOSES ¢ FCS macros 
»-MCALL OIRERRyIOERRyFCSERR ¢ Surerelied macros 


ee 


FSRSZ# 1 ’ i file for record I/0 
§ Define file descrirtor block for VART.ASC 
FOR 3 FOBIF $ § Allocate the FOB 
FOAT#A R.VARsFIL.CR Variable lensth recordsy 
Listing ~ imelied 
“CR 9 LPS 


FORC$&A » RUFF Seauential access and 


record I/O by 
default» BUFF is 
user record buffer 
Use LUN ls file srec 
at FNAME 
*"VART.ASC* 
User Record Buffer 
I/0 status block 


FIIOP$A Ly» FNAME 


FNAMES NMBLK& VART*ASC 
BUFF ¢ » BLAKE B80. 
LOST: +BLAW 2 

«EVEN 

*ENABL LSE 


‘S> > > NP > GP KP > Se Gs Se CH 


Enable local symbol 
block 


<> “ 


Example 19-2 MACRO Equivalent of Example 18-1 (Sheet 1 of 2) 
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a 


$ Oren file for writes call ERR1 if oren fails 
START? OFENGW  #FDRy eee 9 9 ERRG 

§ Get record from terminals eut to file. 

LOS} QIOWSC TO.RVBySeol»slOSTs»<BUFF 80.2 


RCS ERR20 § Branch on directive 
$ error 
TSTE [OST § Check for I/0 error 
BLT ERR2I § Branch om I/0 error 
MOV LOST+2 Ri 3 Number of bytes inrut 
FUT $ #F DR» 9 RL ’ Fut record to file 
BCS ERRS § Branch on FCS error 
BR 104 > Get meaxt record 
EXIT? CLOSES #FIBRvsERR4 § Close file 
EXST#C EX#Suc § Exit with success 
5 status 
§ Error code ~ Close file if necessary» disrelay error 
j messade and exit 
ERR? FCSERR +#FDEBs<ERROR OPENING FILE> 
ERR202 DIRERR <DITRECTIVE ERROR ON REALE 
ERR2T3 CMPFE #TE.EQOF » LOST ' Is it “2? 
BEQ EXIT $ If eauals close file 
> ame axit 
IOERR #IOSTs<ERROR ON READS ¢ Disrlayw error 
$ messade and exit 
ERAS 3 CLOSES #FOUB»sERR4 + Close file : 


FCSERR #FUBe<ERROR WRITING RECORD: 
ERR4 3 FCSERR #FUBs<ERROR CLOSING FILE> 
eEND START 


Rum Session 


*RUN CRESEQ 

1. 

22 

333 

HA44 

Now is the time for ell sood. 


fume of DR2ZIC 305» 301 VART.ASC#S ~ File It 40554950 
YVairtusl block 0000001 - Size Sis. putes 


000000 001 000 041 000 002 000 062 062 003 000 063 063 063 000 004 000 
000020 064 064 0464 064 035 000 116 157 167 040 151 163 040 164 150 145 
000040 040 164 151 155 145 040 146 157 162 040 141 154 154 040 147 157 
000060 157 144 056 000 000 000 000 000 000 000 000 000 000 000 000 000 


Example 18-2 MACRO Equivalent of Example 19-1 (Sheet 2 of 2) 
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FROGRAM SEQFOR 
C File SEQFOR.FTN 


C This task reads the first 5 records from the file 


C VARI.ASC using seauential access and formatted reads. 


—" It disrelays the records at Tt. 


INTEGER REC (40) 
C Oren file 
OPEN (CUNT T=1l»NAME=’VART. ASC’ »s TYPE=’OLT’ > 


i ! Tefaults to 
se ! seauential access» 
C tt formatted reads 


10 100 I=1s35 

{ Read record from file 
READ €1910) N»REC 

10 FORMAT (Q»40A2) 

() Write record at terminal 
WRITE (S920) CRECCK) sheds (N¢1)72) 

20 FORMAT ¢€% ‘’s40A2) 

100 CONTINUE 

C Close file and exit 

CLOSE CUNIT=1) 

CALL. EXIT 

END! 


Run Session 


>RUN SEQFOR 

1 

22 

333 

4444 

Now is the time for all sood. 


Example 19-3 Program to Read File Created in 
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Example 19-4, CRESEQFIX, creates ae file, 

fixed length records of 16 bytes each. In 
records, the size of each record is kept in 
rather than in the first two bytes of the 
file dump you will see that the first input 
l, creates a record consisting of 61 

(40(8)). The next record is 62, 62, and 14 


One advantage of a file of fixed length records is that 


in DIRECT 
disadvantage 
16-byte 


May be accessed 
WRITE. The 
assuming a 


random) 
fixed 


(or 
of a 
record, a 
(Direct access is not 
be practical to use 
Space is not a problem, using direct access 
might be very useful. 
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length 
record containing one byte and a 
record containing 16 bytes occupies the same space 


FIXED.ASC, containing 
a file of fixed length 
the header of the file 
record itself. In the 
record, containing a 
(ASCII) and 15 blanks 
blanks, etc. 


the file 
mode for both READ and 
record is’ that, 
the 


on disk. 


available on a tape or cassette.) If you 
have a wide disparity in record sizes, say 19 and 8@, 
fixed length records. 


it may not 
However, where disk 
to a sequential file 
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FROGRAM CRESEQFIX ICREATE FILE SEQUENTIALLY 
C FILE CRESEQFIX.FTN 


C This task creates a file FIXEN.ASC of fixed-lenesth 
> records weing seauential record access. The records 
CG are ineut from the terminal and written to the file. 
~ The Frocess stors when the orerator tyres CTRIL/Z at 
~ the terminal, 


BYTE BUFF C80) 
INTEGER LEN 
C OPEN FILE ~- Qefault access is seauentials default form 


Cc is formatted I/0 with seauential access. 
ie 
OF EN CUNT T=1»NAME=’FIXEN. ASC’ » TYPE=*’ NEW? » 
1 RECORDTYPE=’FIXED’ sRECORDSIZE=16) 
(l Loos 
10 REAUQ (SeilsEND=100) LEN» BUFF ! Read record 
11 FORMAT (Qs80A1) 
WRITE (1212) (BUFF CT) +sT=1sLEN) i Write record 
12 FORMAT (80A1) ! to file 
GO TO 10 
C Close file and exit 
1.99 CLOSE CUNT T=1) 
CALL EXIT 
ENT 


Rum Session 


1 

22 

333 

4A44 

Now is the time for e11 sood. 


Dume of DR2IC 3059301 IF IXEN.ASC#3 ~ File It 40573+%6%0 
Virtual block O»000001 ~ Size Siz. butes 


000000 0461 040 040 040 040 040 040 040 040 040 040 040 040 040 040 040 
000020 062 0462 040 040 040 040 040 040 040 040 040 040 040 040 040 040 


000040 063 063 063 040 040 040 040 040 040 040 040 040 040 040 040 040 


000060 064 064 064 064 040 040 040 040 040 040 040 040 040 040 040 040 
000100 122 157 163 145 1463 040 141 162 145 040 162 145 144 056 040 040 


Example 18-4 Creating a File With Sequential, 
Fixed Length Records 
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FILE CONTROL SERVICES 


Example 18-5, READFIXED, prompts you for the record number of the 
record you want from the file FIXED.ASC, displays the record and 
then allows you to replace the record if you wish. Note that’ the 
file was created as a sequential file with fixed length records 
and is being accessed as DIRECT. Since the record size is in’ the 
header of the file, it is not necessary to describe the record 
size in the OPEN. Note that both the READ and the WRITE to unit 1 
use the formatted, direct form, i.e.: 


READ (1'NO,1@) 
and 
WRITE (1'NO,1@) 


One precaution here is that if you attempt to replace aé_e record 
with a longer’ record (in this case 16 bytes) than the original, 
the new record will be truncated on the right. 


AS you can see from the run session in CRESEQFIX, the third record 
originally contained 333. This was replaced with "Now is the 
Time", as is shown by running READFIXED a second time and 
displaying record 3 again. 
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FILE CONTROL SERVICES 


PROGRAM READFIXED 
C File READFIXED.FTN 


C This task asks you which record you want from FIXED.ASCy 
~ and disrlays the record on the terminal. It then asks if 
. OU Wish to rerlace the record and if so asks for the mew 
~ record. 


CHARACTERKI6 RECysNEW 
C Oren file 
OPEN CUNT T=1 9NAME=’FIXED. ASC’ »s TYPE=‘OLD’ sACCESS=/DTRECT % » 
1 FORM=’FORMATTED > 
C Read record from file 
TYPE Xy»y “Enter record mumber you want. ’ 
REA xXy»yNO 
READ C1’NOvs1OOREC '!Get record mumber NO 


LO FORMAT CAL6) 
( Write record at terminal 


WRITE (€3%20) REC 

TYFE Xs» “Yio vou want to rerlace the record? Y or N 
REANCSs LOANS 

IF (ANS.EQ.’N’.OR.ANS.EQ.’m’°) GO TO 100 


TYPE Xs ‘Enter mew record.’ 
REALCSs lO UNEW 


¢ 


20 FORMAT ¢% “’vA16) 
WRITE CL ’NOv1OONEW 
100 CONTINUE 


C Close file and exit 
CLOSE CUNIT=1) 
CALL EXIT 
ENIt 


Run Session 


2RUN READFIXED . 

Enter record mumber vou wart. 

3 

333 

Ilo you want to rerlace the record? Y or N 


Y 
Enter mew record. 


Now is the time. 

2RUN READIFIXEN 

Enter record mumber vou want. 
3 

Now is the time. 


a 


Example 19-5 Reading a Fixed Length Record 
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FILE CONTROL SERVICES 


Example 19-6, DIRFOR, illustrates the creation of a file via 
direct access. The example creates record 1 through record 5, in 
order. It is not necessary to create the records in order, nor 
must there be a record n-1l if record n exists. Hence you may have 
a sparse file, containing only those records whose record numbers 
are specifically used in a WRITE. | 


Note that the RECORDSIZE = 1@ is used in the OPEN. Since this is 
a formatted record, the recordsize of 18 means that each record 
will be 18 bytes. Hence the first record, containing 1,1,1,1,1l, 
is filled with five blanks (49,49,40,49,40). The fifth record, 
which contains just a 5, is filled with nine blanks. The rest of 
the file is filled with zeros. 
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FILE CONTROL SERVICES 


FROGRAM DTRFOR 
C File DIRFOR.FTN 


C This task creates a file NIRFOR.DAT using direct. 
~ eccess formatted writes. 


C Direct access formatted writes are available in 
( FORTRAN IV-FLUS and FORTRAN-77 only 


INTEGER RECC10O) 


C Oren file 
QFEN CUNT T=2»NAME=‘NIRFOR. UAT’ sACCESS=“RIRECT’; 
1 TYPE=/NEW’ »>FORM=“FORMATTED’ sRECORDSTZE=10) 
n0 100 T=#1s3 
CG Promet for aimreut 
WRITE (3225) 
2g FORMAT ¢€¢% INFUT UF’ TO 10 NIGITS$ 7) 
C Read record from terminal 
READ (S»SO Nv REC 
350 FORMAT (Q910T1) 
(2 Write record to disk 
WRITE (2°2 280) (CRECCK) »K=19N) 
80 FORMAT (1011) 
199 CONTINUE 
CLOSE CUNTT=2) 
CALL EXIT 
ENT 


Rum Session 


“RUN DTRFOR 

INFUT UF TO 10 DIGITS: 11111 
INPUT UF TO 10 DIGITS: 2222 

INPUT UF TO 10 NIGITS? 3333333333 
INPUT UP TO 10 UIGITS? 444 

INPUT UF TO 10 DIGITS: &S 


Qume of DRS C305» 301 INIRFOR. UATI17 ~ File ID 40653%10+0 
Virtual hlock OvO00001 ~- Size 312. butes 


6000000 O41 061 061 061 061 040 040 040 040 040 062 062 062 062 040 040 


000020 040 040 040 040 063 063 063 063 063 063 043 063 0463 063 064 064 
000040 064 040 040 040 040 040 040 040 065 040 040 040 040 040 040 040 
000060 040 040 000 000 000 000 000 000 000 000 000 000 000 0060 000 000 


Example 198-6 Creating a Direct Access File 
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FILE CONTROL SERVICES 


Example 19-7, DIRUNF, creates a file with unformatted, direct 
access records. Since the file is unformatted, the record size of 
5 does not refer to five bytes but rather to five storage units 
where. a storage unit is defined as four bytes. Hence each record 
is 2@ bytes long. Note that the file dump shows words rather than 
bytes. This is because the data type is INTEGER which has two 
bytes for each value. The first record contains five words of 
020801 padded with five words of 69888 to pad out the 298-byte 
record. 
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FILE CONTROL SERVICES 


FROGRAM DTRUNF 
File DNIRUNF.FTN 


C This task creates a file DIRUNF.DAT usins direct 
access unformatted writes. 


INTEGER 
file 
OPEN CUNT T=4»NAME=‘DTRUNF.0AT’ sACCESS=“OIRECT? » 
1 TYFE=’NEW’ »yRECORNSIZE=5> ! Tlefaults to 
C ! unformatted 
N10 100» TI=193S 
CG Fromet fer ineut 
WRITE (S25) 
FORMAT ¢¢ INPUT UP TO 10 DIGITS? ’> 
C Read record from terminal 
READ €5910) NyREC 
FORMAT (Qv10I1) 
record to disk 
WRITE €4°T) CRECCKR) sK=19N) 
CONTINUE 
CALL EXIT 
END 


REC CIO) 
C Oren 


ag 


LO 
() Write 


LOO 


Run Session 
*RUN DIRUNF 
INPUT TO 
TNFUT 
TNOUT 
INPUT 
INFUT 


10 
LO 
10 
10 
10 


QNIGITS: 
QIGITS: 2222 
QIGITS: 3333333333 
DIGITS: 444 
QNIGITS: & 


Example 19-7 
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ume of DR2¢C3035* 3010 TRUNF ATE1S ~ File It 406619590 
Virtual block Os000001 ~- Size Si2. bytes 

000000 000001 000001 000001 000001 900001 0006000 000000 000000 
000020 000000 000000 000002 000002 000002 000002 000600 000000 
000040 000000 000000 000000 000000 000003 000003 000003 000003 
000060 000003 000003 000003 000003 000003 000003 000004 9000004 
000100 000004 000000 000000 000000 000000 00060000 000000 000000 
000120 000005 000000 000000 000000 000000 000000 000000 0600000 
000140 000000 000000 000000 000000 000000 000000 000000 000000 


Creating an Unformatted, Direct Access File 


FILE CONTROL SERVICES 


Example 19-8, SEQUNF, illustrates the SEGMENTED record type, even 
though the OPEN does not contain RECORDTYPE = 'SEGMENTED'. This 
is because SEGMENTED is the default ' record type for an 
UNFORMATTED, SEQUENTIAL file. This is the default file type 
created by an unformatted WRITE in FORTRAN. Hence, if there had 
been no OPEN statement, and the write statement was as shown: 


WRITE(1) (REC (K) ,K=1,N) 


the file created would default to FOR9@1.DAT (@@1 because 1 was 
used in the WRITE). and the record type would be SEGMENTED. The 
advantage of a file with segmented records is that there is no 
limit to its size, i.e., a single record could be many physical 
blocks on a disk. The disadvantage of a file with segmented 
records is that it cannot be read by any other high level 
languages. 
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O 


ef 
se 


? 
‘7 


C Loor for 


FILE CONTROL SERVICES 


FROGRAM SEQUNF 


BYTE RECC1O> 


~ Oren file 


OPEN CUNT Td »NAME=/SEQUNF .TIAT’ » TYPES “NEW % » 
1 FORM=’UNFORMATTED’ » ACCESS=’SEQUENTIAL “> 
5 records 
10 100 I=195 


C Fromet for ineut 


25 


0 
C Write 


100 


C Error 
900 


930 


WRITE (S925) 


FORMAT (°# INFUT UF TO 10 DIGITS? ‘3 
C Read record from 


terminal 
READ (5950) NeREC: 
FORMAT (Qs10I1) 

record to disk 

WRITE ¢€1) CRECCKR)D »KeLyN) 
CONTINUE 

CLOSE CUNT T=1) 


CALL EXIT 


routine 
WRITE (39950) 


FORMAT ¢% THERE 
CALL EXIT 
ENT 


WAS A FILE OFEN ERROR’) 


Rum Session. 


“RUN SEQUNF 


INPUT 
ENFUT 
INFUT 
INPUT 
INPUT 


UF 
UF TO 
UF 
UF TO 
UF TO 


TO 10 
10 


190 
190 


10 


QNIGITS$ 
NIGITS? 
QIGITS: 3333333333 
NIGITS? 444 
QNIGITS: 3 


Lidid 


ayer 


Bee Bee Bee Hoe 


TO 


This task creates a file SEQUNF.DAT usine seauentisl 
Y unformatted writes 


Qume of DR2IC305» 301 JSEQUNF.DAT#16 - File ID 4067573%0 


000000 
000020 


000040 
000060 
000100 


Size 


Virtual block O»000001 - 


a a 


000014 
000003 
000003 
000003 
000005 


000003 
000002 
000003 
000010 
000000 


Example 19-8 


000001 000001 
000002 900002 
000003 000003 
000003 000004 
600000 000000 


000001 
Q000002 
000003 
000004 
000000 


oo0001 
000026 
000003 
000004 
000000 


bytes 


000001 
000003 
000003 
000004 
000000 


Creating a Segmented File | 
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OO00l12 
000003 
000003 
000003 
000000 


Example 19-9, FWRITE, 


in MACRO can be 


FILE CONTROL SERVICES 


directly available in FORTRAN. 


FWRITE 
fO1/ 
Le 


ilun is 
ihut is 


isiz is 
ivb is 
iefn is 
iosh is 


TITLE 
+ TQENT 
+ENARBL 

3+ 

3 

3 

§ Subroutine call? 

3 

; 

rf 

$ where 

3 

j 

3 

$ 

5 

$ 

3 

5 

3 

3 

po 
*MCALL 


OSB: oBLAW 
5 


FWRITES $ 
MOV 
MOV 


CALL 
RCS 
An 
FORCER 


BCS 
WRITES 


BCS 

MOV 

RETURN 
ERRORI? MOV 


RETURN 
ERROR2! MOV 

RETURN 
ERROR3! MOV 


RETURN 
eENT 


illustrates how a Block I/O routine 
called by a FORTRAN program. 


§ Enable lower case 


FWRITE is @ FORTRAN-callsable block I/0 subroutine. 


CALL FWRITE Cilunysihbufsisizsivbviefnviosbvierr) 


logical unit number 

block huffer address 

block buffer size Cin butes) 
address of 2-word veh. mumber 
event fleas 

I/O status block 


ierr is @ status code 
+] = Success 
“lo o= $FCHNL ERROR 
~2 = CANNOT CHANGE RECORD ACCESS 
~G oom WRITES REJECTED 
WRITES*sFDIRCSR ¢ System FCS macros 


” 


we 


@2¢R3) »R2 
C#EOTSVs RS 


$F CHNL 
ERROR 1 
#14eRO 
ys FFD. RWM 


ERROR 


Lwin 

Address of FORTRAN 
work grea 

Get FORTRAN FIIB 
Branch om error 
Foint to FCS FOE 
Change record access 
to block I/0 

Branch om error 


> “> SP Sh Se eh SD MED “Ed 


VAC RS) r@6CRS) eLOCRS) v@12¢°RS) ¥1L4 (RS) » #0 


ERRORS 
#i»@16¢(R5) 


#-1y@16 (CR) 


#-2¥@16¢CRS) 


#-49@160RS) | 


Issue write 
Branch on error 
Return success code 


Return FCHNL feilure 
code 


> “Sh "SP QP Sh “KD 


> Return couldn’t chanse 
* access code 


Return write reJected 
code 


Example 189-9 Creating a File Using Block I/0 (Sheet 1 of 
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written 
Block I/O is not 


3) 


FILE CONTROL SERVICES 


FROGRAM BLOCK 


.C File BLOCKI.FTN 
C 
C BLOCK1 creates a file BLOCK.ASC usins FWRITE» @ 
~ FORTRAN callable subroutine written in MACRO-i1. 
(° 
C Subroutine call? 
C 
Cc CALL FWRITECilunvsibuffeisizerivonvsiefnyiosbrvierr) 
C 
C where dlumn is the logical unit rmumber 
C ibuff is the gerrays to be written 
isize is the size of the huffer (Chutes) 
C ivon is @ 2-inteser von ¢hishy low) 
C iefrn is an event fles mumber 
C iosh is a 2-inteser I/0 status block 
C ierr is an status code,» 
a +1 0o= SUCCESS 
C ~l = $F CHNL ERROR 
C “205 CANNOT CHANGE RECORD ACCESS 
C ~hooom WRITES REJECTED 
C Taskh-build instructions: 
E SLINK/MAP/CODES FFP BLOCK» FWRITEyL Bt Cis LIF 4PoTs- 
. ~i/LIBRARY 
INTEGER WOBUFF C256) »TVENC2) 
INTEGER ISIZEsTEFNyIOSBR(2)*TERR 
BYTE ITOSTC2) sCHARy CHBUFF (S12) 
C 
EQUIVALENCE (TOSRyTOST) ! For accessing I/0 status 
EQUIVALENCE CWIBUFF yCHBUFF) ! For aceessins data 
DATA ILUNvsISIZEsTEFN /1isS1l292/ 
@ Get virtual block # 
TYPE 3 
ra FORMAT ¢’7$VIRTUAL BLOCK NUMBER (LOW ONLY)? %) 
| ACCEPT 6» IVENC2) 
& FORMAT (16) 
IVBENC1) = O ! Hisihy VEN = O 
CG Get cheracter to insert 
TYFE 7 
7 FORMAT (’$CHARACTER$S 7) 
ACCEFT 8»CHAR. 
83 FORMAT (1A) 
C Fill buffer with character 
DO 9»t=iLvyISiIZe 
vd CHBUFF CI) = CHAR 
Example 18-9 Creating a File Using Block I/O (Sheet 2 of 
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3) 


FILE CONTROL SERVICES 


C Oren file 
OPEN CUNTT=ILUNy»yNAME=’ BLOCK. ASC’ » TYPE=‘NEW ) 
® Call subroutine to write block of cata 
CALL FWRITE CILUNs WIIRUFF » [ST ZE»sIVBNy IEFNy» LOSE,» 


LIERR) 
IF (TERR «LT. 0) GOTO 200 
. TYFE 20 
20 FORMAT ¢% 1 BLOCK BEING WRITTEN TO FILE*3 


C Wait for write to comelete 
CALL WAITFRCIEFNy IT QSW> 
IF ¢(InSW «LT. 0) GOTO 40 ! Check for dir error 
IF (ILOSTC1) «LT. 0) GOTO 100 ! Cheek for 170 


C ! error on write 
WRITE (S30) I0SK(2) 
30 FORMAT ¢€% WRITE COMPLETED: ’»sIé9’ BYTES WRITTEN. 
1T0 FILE’) 
GOTO 300 
C 
40 TYFE 45s I0SW 
45 FORMAT (’% DIRECTIVE ERROR, I0SW = “»Té6) 
GOTO 300 
C 
100 — WRITE (Ssl10) TOSsST¢1) 
L10 FORMAT ¢’ I/0 ERROR. I70 STATUS = ‘’9I6) 
GOTO 300 
GC 
200 TYFE 21Os TERR 
210 FORMAT ¢€’ FCS ERROR: CODE = ’»I6) 
300 CLOSE CUNIT=ILUN)> 
CALL EXIT 
END 


Run Session 


“RUN BLOCK 

VIRTUAL BLOCK NUMBER (LOW ONLY) ? 2 
CHARACTER e 

1 BLOCK BEING WRITTEN TO FILE 

WRITE COMPLETED » Jl2 BYTES WRITTEN TO FILE 


Dume of UR2I0 305301 IBLOCK .ASCS14 ~- File Itt) 407019290 


Virtual block Ov000001 ~- Size Sie. betes 


Contains whetever was rreviously in that block on the 


Hume of DIR22030S* 301 JBLOCK.ASC514 ~- File ID 407012290 


Virtual block 0000002 ~- Size Sik. betes 


000000 145 145 145 145 145 145 145 145 145 145 145 145 145 


000020 145 145 145 145 145 145 145 145 145 1495 145 145 
000040 145 145 145 145 145 145 145 145 145 145 145 145 


o 


° 


000760 145 145 145 145 145 145 145 145 145 145 145 145 


Example 19-9 Creating a File Using Block I/0 (Sheet 3 of 
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gisk. 


145 
14S 
LAS 


3 145 


145 
145 
145 


145 


3) 


APPENDICES 


APPENDIX A 
GLOSSARY 


ASYNCHRONOUS SYSTEM TRAP (AST) - A system condition which occurs 
aS a result of a specified event such as completion of an I/0 
request. 


On occurrence of the event, control passes to an AST service 
routine, and the AST is added to an Executive first-in first-out 
queue for the task in which the service routine appears. 


ATTACH - Device: Dedicate a physical device unit for exclusive 
use by the task that requested attachment. 


A task attaches a given device by issuing a QIO directive, or QIo 
and WAIT directive, specifying the I/O function IO.ATT. 


Region: Include a region in a task's logical address space. 


A task attaches a region by issuing an Attach Region directive or 
by being the target of another task's Send-By-Reference directive. 


CLUSTER LIBRARIES - A special setup with shared resident libraries 
which permits a task to use the same virtual address window to map 
several difficult libraries. For example, the resident FORTRAN 
Object Time System and the resident FCS library could use the same 
virtual addresses. The run-time routines map and remap the 
regions as they are needed, somewhat similar to what happens with 
regular memory-resident overlays. 


DATASET DESCRIPTOR — A six-word area in the user task containing 
sizes and addresses of ASCII data strings, which FCS consults in 
order to obtain a run-time file specification. 


A dataset descriptor for a given file is a user-created data 
Structure which contains a file specification for that file. 


When the filename block associated with a given file does not 
contain sufficient information to enable FCS to do run-time file 
processing on that file, FCS tries to get the needed information 
from the file's dataset descriptor, if specified. Otherwise, FCS 
consults the file's default filename block, if specified, in order 
to get the desired information. 


DEFAULT FILENAME BLOCK - An area in the user task that supplies 


FCS with those default values that are needed to build a routine 
file specification. 
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When the filename block associated with a given file does not 
contain sufficient information to allow FCS to process the file, 
and when a dataset descriptor does not contain the needed 
information, then FCS consults the default filename block 
associated with the file to obtain the missing information. 


A default filename block may be used to supply a default name, 
extension, and/or version for the file. The MACRO programmer uses 
the NMBLK$ macro to create this block at assembly. time. 


DETACH —- Device: Free an attached physical device unit for use by 
tasks other than the one that attached it. 


A physical device unit can only be detached by means of an I0.DET 
I/O function issued by the task that attached it, or by the 
Executive, if the task is terminated with the device still 
attached. | 


Region: Remove a region from a task's logical address space. 


A task detaches a region by issuing a Detach Region directive or 
by exiting. 


DIRECTIVE STATUS WORD - A word in the user task header into which 


the Executive returns status information about the most recently 
called directive. 


After processing a directive, the Executive passes the status of 
that directive to the issuing task by putting a success or error 
code into the task's Directive Status Word, which is assigned the 
global label S$DSW. If SDSW is negative, the Executive rejected 
the directive; if SDSW is +1, the directive was successful. 


EVENT FLAG - A software flag which can be specified in a program 
request to indicate to the issuing task which of several specified 
events has occurred. 
There are 96(18) event flags. 
Event flags l1 - 32(1@) are local 

33(19) - 64(18) are system global flags 

65(18) - 96(19) are group global flags 
Local flags are used for intra-task synchronization, while group 


global and system global flags are used for inter-task 
synchronization and communication. 


EXECUTIVE DIRECTIVE - A program request for Executive services. 
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An Executive directive is issued from a FORTRAN program by calling 
a subroutine in the system object library. It is issued from a 
MACRO-11 program by invoking a macro in the system macro library. 


FILE DESCRIPTOR BLOCK (FDB) - The tabular data structure which 
provides FCS with information needed to perform I/O operations on 
a file. 


A task must allocate, through calls to the FDBDF$ macro, or 
dynamically through the use of run-time macros. 


FILE STORAGE REGION (FSR) - The area in user task which FCS uses. 
to buffer all virtual blocks read or written during record. 
processing. 


FCS requires one FSR block buffer for each file to be opened at 
the same time for record I/O. When the task requests a record 
that is not in the FSR buffer, FCS reads a virtual block from’ the 
file into the task's file storage region. On the other hand, FCS 
writes virtual blocks in the file storage region to the file when 
a record must be put to the file. 


The user task allocates this area by issuing an FSRSZ$ macro. 


FILENAME BLOCK - The part of a file's File Descriptor Block which 
FCS uses for building, and later using, a file specification. 


The filename block contains the file's UFD, name, extension, 
version number, device name, and unit. When a file is initially 
opened, FCS fills in the filename block from user-supplied 
information in the dataset descriptor and/or default filename 
block. 


I/O STATUS BLOCK - A two-integer array which receives success or 
error codes on completion of an I/O request. If an I/O status 
block has been specified in an I/O request, the Executive clears 
both words when the I/O operation is queued. On completion, the 
low byte of the first word contains +1 if the I/O was’ successful, 
and a negative error code otherwise. 


If the I/O function involved a transfer, the second word contains, 
on completion, the number of bytes transferred. 


LOGICAL ADDRESS SPACE - The set of all physical addresses to which 
a task has access rights. 


If a task is running on a mapped system that includes support for 
the memory management directives, it may issue directives in order 
to manipulate its logical address space at run time. 
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LOGICAL BLOCK - A 512(1@) byte (256(18) word) block of data on a 
block addressable volume. 


To achieve device independence, each block addressable volume is 
organized into logical blocks, numbered @ to n-l, where n is the 
number of logical blocks on the volume. 


The mapping of logical blocks to physical blocks is handled by the 
driver. 


LOGICAL UNIT NUMBER (LUN) - A number associated with a physical 
device unit during a task's I/O operations. 


The association of a LUN in a task with a given physical device 
may be done by the Task Builder, by the operator using the 
REASSIGN command, or at run time by the task, by issuing an Assign 
LUN directive. 


‘RANDOM ACCESS - A method of I/0 to disk files in which records (or 
virtual blocks) are specified by record (or virtual block) number. 


Under FCS, a file must be organized into fixed length records in 
order for a task to do random access to the file. 


FCS supports the use of block I/O, in which virtual blocks are 
read from, or written to, the file without regard for the 
structure of those blocks. The FORTRAN language does not support 
block I/0. , | 


READ/WRITE MODE --An FCS file access method in which the user task 
uses the READS and WRITES macros to do block-structured I/O to a 
file. . 


REGION - An area consisting of one or more contiguous 32.-word 
blocks of physical memory. 


A region may be named or unnamed, but is always assigned a_ unique 
region ID. A region has an associated protection word which 
specifies the access rights a task may have with respect to that 
region. Any task that satisfies the region protection word may 
attach a named region, but no task can attach an unnamed region 
unless the task has the region ID. 


RESIDENT COMMON - A shared region which contains data. 


RESIDENT LIBRARY - A shared region pone pesos Subroutines and/or 
functions. 


SEQUENTIAL ACCESS - A mode of record access in which the ntlth 
record in the file is processed after the nth record in the file. 
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Each record is assigned a record number, and each successive GET 
or PUT causes the record number to be incremented. 


SYNCHRONOUS SYSTEM TRAP (SST) - A “software interrupt" which 
typically occurs as a result of an error or fault within the 
executing task. 


On recognition of an SST, the Executive aborts the task, unless 
there is an SST vector table to an SST routine in the task. 


VIRTUAL ADDRESS - A 16-bit address which may be directly specified 
using one of the general purpose registers. 


A task specifies a virtual address whenever it uses one of the 
addressing modes in executing an instruction. Up to 32K virtual 
word addresses may be specified by a task. 


On a mapped system, the memory management hardware dynamically 
maps virtual addresses to real physical addresses. 


VIRTUAL ADDRESS WINDOW - A contiguous chunk of a task's virtual 
address space. 


Each virtual address window in a task begins on a 4K word boundary 
and consists of one or more 32(18) word blocks of virtual address 
space. Each window has a unique number assigned to it by the 
Executive. Window @ always maps the task'’s header, stack, and 
code. A task may divide its virtual address space into eight 
windows. 


VIRTUAL BLOCK - One of the logical blocks belonging to a file. 


Each file consists of one or more logical blocks. The logical 
blocks belonging to a file are called virtual blocks 1, 2, 3, etc. 
The mapping of virtual blocks in a file to logical blocks on disk 
is performed by the file system. 


WINDOW DESCRIPTOR BLOCK (WDB) - A data structure used in a task in 
order to represent a dynamically created window. 
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APPENDIX B 
CONVERSION TABLES 


Table B-1 Decimal/Octal, Word/Byte/Block Conversions 


Words (19) /Words(8) Bytes(19)/Bytes (8) Blocks (18) /Blocks (8) 


1/1 2/2 
32/40 64/100 1/1 
1K =1624/2000 2048/4000 32/48 
2K =2048/4000 4996/19000 | 64/108 
4K =4996/10000 8192/20000 128/200 
8K =8192/20000 16384/49000 256/400 
16K =16384/49000 32768/190000 512/1000 
32K =32768/100000 65536/ 200008 1924/2000 
64K =65536/200000 131072/400000 2048/4000 
128K=131072/400008  § 262144/1999000 | 4996/19000 


Table B-2 APR/Virtual Addresses/Words Conversions 


APR | Virtual Addresses Words 
"4 | G@88009S-017776 G-AK 
1 G20080-037776 4-8K 
2 G49000-057776 8-12k 
3 ®609009-077776 12-16K 
4 1890906-117776 16-20K 
=] 120909-137776 20-24K 
6 148608-157776 24-28K 
7 168880-177776 28-32K 
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APPENDIX C 
FORTRAN/MACRO-11 INTERFACE 
CALLING A MACRO-11 SUBROUTINE FROM A FORTRAN PROGRAM 
FORTRAN Program Call: 
CALL SUBNAM (I,J,K) 
MACRO translation: 


1. Set up table of arguments. 


Jesane=s 
Address of I 


Address of J 
Address of K 


2. Issue subroutine call. 


R5 ----> 


JSR PC,SUBNAM 
or 
CALL SUBNAM 


The FORTRAN Callable MACRO-11 Subroutine 


; Accessing: 

; Argument count = (R5) 
; Argl = @2(R5) 

: Arg2 = @4(R5) 

: Arg3 = @6(R5) 

SUBNAM: : : 


RTS PC ; or RETURN 
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CALLING A FORTRAN SUBROUTINE FROM A MACRO-11 PROGRAM 
In the MACRO program: 


LINK: ~BYTE 
- WORD 
- WORD 
- WORD 
- WORD 
- WORD 
- WORD 


AWNA WY WwW 


QW LY 


MOV #LINK,R5 
JSR PC,SUB 


In the FORTRAN program: 


SUBROUTINE SUB (L,M,N) 
N=L+M 

RETURN 

END 


NOTE 


This method is also used to call a FORTRAN 
callable subroutine (written in MACRO-11). 


Example 7-3 in the Static Regions module shows a shareable library 
LIB.MAC, which contains FORTRAN callable subroutines. USELIB.MAC, 
also in Example 7-3, shows a referencing task which calls 
Subroutines in the library. 
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APPENDIX D 
PRIVILEGED TASKS 


RSX-11M systems have two classes of tasks, privileged and 
nonprivileged. The basic difference is that privileged tasks have 
certain system-access capabilities that nonprivileged tasks do not 
have. These privileges include one or more of the following: 


e Access to Executive routines and data structures 


e Automatic mapping to the I/O page 
e Bypass of system security features. 
NOTE 
Privileged tasks may be hazardous to a= run- 
ning system. 


Use one of the following qualifiers (switches) to build a 
privileged task. 7 


1. /PRIVILEGE:@ qualifier (MCR /PR:@6) 
This task is built in the same way aS a nonprivileged task 
and does not map to the Executive or the I/O page. It 
can, however, do the following: 


e Bypass file protection 


e Issue directives which require privileges (e.g., Alter 
Priority, QIO for Write Logical Break-through) 


e Issue QIOS to write logical blocks to a = mounted 


volume, regardless of who issued the MOUNT or ALLOCATE 
command. 
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2. /PRIVILEGE:4 or /PRIVILEGE:5 (MCR /PR:4 or /PR:5) 


This task has the privileges of a /PRIVILEGE:9 task, plus 
it maps to the Executive and the I/O page. The user task 
code is mapped beginning at APR 4 or 5, aS specified. The 
APRs below the one specified are used to map to the 
Executive, and APR 7 is used to map the I/0 page. Use 
/PRIVILEGE:4 if the Executive is 16K words or less; use 
/PRIVILEGE:5 if the Executive is between 16K and 29K 
words. If the task code extends beyond the end of the 
addresses mapped by APR 6, then APR 7 is used to map _ the 
excess code, and the task does not map to the I/O page. 


Privileged tasks are discussed in detail in the RSX-11M Internals 


Course. See also Chapter 6 on Privileged Tasks in the 
RSX-11M/M-PLUS Task Builder Manual. 
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APPENDIX E 
TASK BUILDER USE OF PSECT ATTRIBUTES 


The Task Builder collects scattered occurrences of program 
sections of the same name and combines them in a single area in 
your task image. The program section attributes control how the 
Task Builder collects and places each program section. 


See Chapter 2 of the RSX-11M/M-PLUS Task Builder Manual for a 
complete discussion of program section attributes. 


Example of allocation code attributes: 
CON (concatenate) versus OVR (overlay) 
1. A.OBJ has Psect Q,CON - length 19@(18) words 
B.OBJ has Psect Q,CON - length 5@(18) words 
When task-—-built: 
LINK A,B 


Yields 1508(18) words in Psect Q 
(first A's 1800(18) words, then B's 5@(18) words). 


2. A.OBJ has Psect Q,OVR - length 190(19) words 
B.OBJ has Psect Q,OVR - length 58(1@) words 
When task-built: 

LINK A,B 
Yields 190 (19) words in Psect Q 


(A's 100(198) words. B's 5@(18) words are the 
same as A's first 58(198) words). 
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Example of scope code attributes: 


LCL (local) versus GBL (global) 


Overlay Tree B.ODL file: 
ji 
Bl B2 -ROOT B-*! (B1,B2-B3) 


| | - END 


Task-build command (for all): LINK B/OVERLAY DESCRIPTION 


1. 


B.OBJ has Psect Q,LCL,CON - length 198(18) words 
B1.OBJ has Psect Q,LCL,CON —- length 59(198) words 
When task-built: 


Yields 1@8(18@) words in Psect Q in root segment B 
Yields 5@(18) words in Psect Q in overlay segment Bl 


B.OBJ has Psect Q,GBL,CON - length 198@(198) words 
B1.OBJ has Psect Q,GBL,CON - length 58(19) words 
When task-built: 


yields 15@(18) words in Psect Q in root segment B (in the 
segment closest to the root); B's 190(18) words, then 
Bl's 58(18) words. 


If GBL,OVR instead, yields 198(18) words in Psect Q in the 
root segment. B's 100 words, with Bl's 5@(1%8) words the 
same as B's first 58(10) words. 
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3. B2.O0BJ has Psect Q (LCL or GBL) - length 199198) words 
B3.0BJ has Psect Q (LCL or GBL) - length 59@(18) words 


When task-—-built: 


If CON, yields 1598(18) words in Psect Q in overlay segment 
B2 (allocation collected, since it is all in the same 
overlay segment). 
If OVR instead, 198(18) words in Psect Q in overlay 
segment B2. B3's 5@(18) words are the same as B2's first 
-5@(18) words. . 
LCL and GBL are used only for overlaid tasks. In a non-overlaid 
task or within an overlay segment in an overlaid task, allocations 
are collected when either LCL or GBL is specified, as in Example 
3% 
Example of FORTRAN COMMONS at Psects: 
Psect attributes are always: RW,D,GBL,OVR,REL 
COMMON /RDATA/ 1(19@) 
Macro translation: 


.PSECT RDATA,RW,D,GBL,OVR, REL 
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APPENDIX F 
ADDITIONAL SHARED REGION TOPICS 


SHARED REGIONS WITH OVERLAYS 


e Can be referenced using a smaller window in referencing 
task 


e Reuse virtual addresses in the referencing task 
e Must be memory-resident overlays 


e Have overlay structures which are placed in the .STB file 
and later placed in root segment of referencing task. 


BUILDING A RESIDENT LIBRARY WITH OVERLAYS 
1. Code and assemble library modules. 
2. Write regular .ODL file coMetine overlay structure. 
e Typical structure has a null root. 
3. .Task-build as a shared region. 


@e Only symbols defined or referenced in the root are 
included in the .STB file. 


e Force inclusion of global references into root, when 
necessary, using GLBREF option. 


Example .ODL file OVRLIB.ODL (Figure F-1): 


- NAME OVRLIB 
- ROOT OVRLIB-*! (H,I-J) 
~ END 


Example task-build command: 


>LINK/NOHEADER/MAP/SYMBOL TABLE/OPTIONS OVRLIB/OVERLAY- 
-> DESCRIPTION 

Option? STACK=@ 

Option? PAR=OVRLIB:1480000: 40009 

Option? GBLREF=H,I1,J 

Option? <RET> 
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Referencing task is created using regular procedure to reference 
library OVRLIB. 


See section 5.1.4 (on Shared Regions with Memory-Resident 
Overlays) in the RSX-11M/M PLUS Task Builder Manual for additional 
information. 
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MEMORY 


VIRTUAL = 
| = 
—_— 
a ee , 
160000 APR7 \ "ag Sore rea 
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lik U 
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100000 APR4 


60000 APR3 


40000 APR2 
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20000 APR 1 


0 APRO 


TK-7773 


Figure F-1 A Shared Region With Memory-Resident Overlays 
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REFERENCING MULTIPLE REGIONS IN A TASK 


e Use the usual procedure if: 


- The number of available APRs in the referencing task 
is sufficient 


- Shared regions are logically independent (one library 
does not call the other library) 


e If shared regions are built absolute, APRs (and virtual 
addresses) cannot overlap. 


' Example task-build for logically independent libraries (Figure 
F-2): : 


Libraries: ARES built absolute at V.A. 160080(8); length 4K 
words 
BRES built absolute at V.A. 120000(8); length 6K 
words : 


Referencing task: REF 
>LINK/MAP/OPTIONS REF 
Option? RESLIB=ARES/RO 


Option? RESLIB=BRES/RO 
Option? <RET> 
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Figure F-2 Referencing Two Resident Libraries 
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INTERLIBRARY CALLS 
One library can call another library 


FORRES calls FCSRES 


To build libraries with interlibrary calls, use any of these 
techniques. 


e Build as a single combined library, then build referencing 
task (Figure F-3). 


e If referenced library does not contain overlays (Figure 
F-4): 


- Build referenced library. 


- Build referencing library, specifying referenced 
library to resolve calls. 


~-~ Build referencing task, specifying only referencing 
library. 


e If referenced library has overlays (Figures F-5 and F-6): 


- You must revector interlibrary calls to allow access 
to overlay structure and autoload vectors (always in 
root of referencing task). 


- Once revectoring is included, build shared regions and 
referencing task as if regions are logically 
independent. 


Example task-build commands for each technique follow. 

Example task-build command for combined libraries (Figure F-3): 
>LINK/MAP/NOHEADER/SHAREABLE: LIBRARY/SYMBOL_ TABLE- 
->/OPTIONS F4PRES,LB:[{1,1]F4POTS/LIBRARY 
Option? STACK=@ 


Option? PAR=F4PRES:129000: 60000 
Option? <RET> 


Referencing task is created using normal procedure to reference 
the library F4PRES. 
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Figure F-3 Referencing Combined Libraries 
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Example task-build commands for building one library, then 
building the second (referencing) library (Figure F-4): 


>LINK/MAP/NOHEADER/SHAREABLE: LIBRARY/SYMBOL TABLE- 
->/OPTIONS/CODE:PIC FCSRES o 
Option? STACK=9 

Option? PAR=FCSRES:@: 290000 

Option? <RET> 


>LINK/MAP/NOHEADER/SHAREABLE: LIBRARY/SYMBOL_TABLE- 
->/OPTIONS F4PRES,LB:[1,1]F4POTS/LIBRARY 

Option? STACK=@ 

Option? LIBR=FCSRES:RO 

Option? PAR=F4PRES: 14868000: 49900 

Option? <RET> 


Referencing task is created using normal procedure to reference 
just the library F4PRES. F4APRES must be mapped using APRs 6 and 7 
because it is built absolute. FCSRES is mapped at the next 
available APR, namely APR 5, because it is built position 
independent. 
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Figure F-4 Building One Library, Then Building 


a Referencing Library 
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FCS1 FCS2 F4PCLS USER 


JMPTBL:: 


AUTOLOAD ROUTINE, MAPS TO 
FCS1, THEN TRANSFERS CONTROL 


TK-7777 


Figure F-5 Revectoring 


See Section 5.2.1.3 (on User Task Vectors Indirectly Resolve all 
Interlibrary References) in the RSX-11M/M-PLUS Task Builder Manual 
for additional information on revectoring. See also Section 5.2.3 
on Examples for commented task-build commands for building 
libraries with revectoring. 
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Example task-build commands when revectoring is used 
(Figure F-6): 


>LINK/MAP/NOHEADER/SHAREABLE: LIBRARY/SYMBOL_ TABLE- 
->/OPTIONS/CODE: PIC FCSRES/OVERLAY_ DESCRIPTION 
Option? STACK=9 

Option? PAR=FCSRES:@: 20000 

Option? GBLREF=.CLOSE 

Option? GBLREF=.CSI1 

Option? GBLREF=.CSI2 


Option? GBLREF=.WAIT 
Option? <RET> 


>LINK/MAP/NOHEADER/SHAREABLE: LIBRARY/SYMBOL TABLE:- 
->F4PCLS/TASK: F4PCLS/OPTIONS F4PRES,LB:[1,1]F4POTS- 
->/LIBRARY,LB:[1,1]SYSLIB/INCLUDE: FCSVEC 

Option? STACK=9 

Option? PAR=F4PCLS: 149000: 49000 

Option? GBLINC=.FCSJT 

Option? GBLXCL=.CLOSE 

Option? GBLXCL=.CSI1l 

Option? GBLXCL=.CSI2 


Option? GBLXCL=.WAIT 
Option? <RET> 


Referencing task is created using normal procedure to reference 
libraries FCSRES and F4PCLS. 
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Using Revectoring When Referenced Library Has Overlays 
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CLUSTER LIBRARIES 


See 
Task 


e Allow shared libraries to overlay each other (Figure F-7). 
- Can use one window for several libraries. 


- Only enough virtual address space is needed for 
largest library. 


@e One library can call another. 
- Generally moving in one direction only. 


- First library in cluster is initially mapped (no 
autoload). . 


- When a call is made to another library in cluster: 


Autoload routines save mapping context and map 
called library for a call. 


Original library is remapped for return from 
subroutine. : 


@e Revectoring is necessary for interlibrary calls (Figure 
F-5) ° 


- Special coding must be included in the resident 
libraries. 


e Some special rules must be followed when building the 
resident libraries. 


e Are useful for FORTRAN tasks using the resident object 


time system (FORRES, F4PRES, or F77RES), plus layered 
products. 


Section 5.2 on Cluster Libraries in the RSX-11M/M-PLUS 
Builder Manual for additional information. 


Example of task-build command: 
>LINK/MAP/OPTIONS/CODE:FPP CLSDEM,LB:[1,1]HLLFOR,- 
~>LB: [1,1] F4POTS/LB,LB: [1,1] FDVLIB/LB 


Option? CLSTR=F4PCLS,FMSCLS,FCSRES:RO 
Option? <RET> 
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APPENDIX G 
ADDITIONAL EXAMPLE 


The following example READF.FTN, should be available on-line, 
probably under UFD [202,1]. It is needed for the Tests/Exercises. 
Therefore, it is listed here in case it is not available on-line 
at your site. 


PROGRAM READF 
C File READF.«FTN 


C This task sets event flag 1 and then reads 

CG flegs 1 to 16 and disrelays them. The disrelay is 
C 8@ series of 14 disitsys corresronding to flag 

C 16 om the left throush flags 1 on the ristht. 

C A Ll indicates that the flas is sets a 0 

(@ indicates that the fleas is clear, 


INTEGERK2 TEVF O16) %T0SW 
C Set event flas 1. 
CALL SETEF ¢1+*TI0SW) 
C Kranch on directive error 
IF ¢(I0SW .LT. 0) GOTO 1000 
> Read the event flads into the array ievf. Note 
C that im FORTAN»y we can only read 1 flat at a time 
00 20 IT=1%16 
CALL REATIEF (Iv ITswW) 
C Branch on directive error 
IF CiInswW LT. 0) GOTO 1100 
> Check TO0SW values 2 means sety O means clear 
C Set the ievf value accordingly (1 means sets 0 
GC means clear) 
IF ¢iInSW .EQ. 2) GOTO 10 
TEVF (CD) =I10SwW 


GOTO 20 
10 TEVF CT) =1 
20 CONTINUE 


C Write out fleas settingsy starting with fleas 16. 
WRITE (S30) 


39 FORMAT (% EVENT FLAGS 16. TO 1. ARE? 7’) 
WRITE (S240) (IEVF(J)»9 J=léely~1) 

40 FORMAT (% ’91612) 
CALL EXIT 


C Come here om directive errors 

1000 WRITE ¢(S+*1010) ToSwW 

1LO10 FORMAT ¢’ ERROR SETTING FLAG. ERROR CODE = ’»IS) 
CALL EXIT 

1100 WRITE (Sv1110) ITnSsw 

L110 FORMAT (’ ERROR READING FLAG. ERROR CODE = ’»IS) 
CALL EXIT 
ENT! 


Example G-l' Reading the Event Flags (For Exercise 1-1) 
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APPENDIX H 
LEARNING ACTIVITY ANSWER SHEET 


Learning Activity 2-1 (Directives) 


l. 


Either: a) Do some work, then check the flag by using the 
CALL CLREF (35,IDSW) directive. Check the DSW. IS.SET 
(=+2) means the flag was set; IS.CLR (=@) means the flag 
was clear, or b) read flags 4 through 64 using RDAFS and 
then test bit 2 of the third word in the buffer to read 
flag: 35. In either case, keep doing more specific work 
and periodically check the flag. 


The Executive would only set event flag 1 for Task A. Tt 
would not set Task B's event flag 1; therefore, Task B 
wouldn't realize that the data had been sent. 


Local flags are accessible only to the task itself. They 
are specifically provided for synchronization between the 
Executive and a task. 


Learning Activity 6-1 (Overlays) 


(Using Example 6-5) 


l. 


- ROOT-LIB-*! (P-LIB,Q-LIB) 


LIB: -FACTR LB:[{1,1]FOROTS/LB 


- END 


LINK/MAP ROOT,P,Q,LB: [1,1] FOROTS/LB 
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Learning Activity 6-2 
(Using Example 6-6) 


1. Overlay tree. 


JOB1 JOBXX 
| | 
| 
A B 
| | 
| 
TOTAL 
| 
MAIN 
2. 
-ROOT MAIN-TOTAL-LIB-* (A-LIB- (JOB1-LIB,JOBXX-LIB) ,B-LIB) 
LIB: .FACTR LB:[1,1]FOROTS/LIB 
. END 
3. 
~ROOT MAIN-TOTAL-LIB-* ! (A-LIB-! (JOB1-LIB,JOBXX-LIB,B-LIB) 
LIB: .FACTR LB:[1,1]FOROTS/LIB | 
. END 
4. 


-ROOT MAIN-TOTAL-LIB-* (A-LIB- (JOB1-LIB, JOBXX-LIB) ,B-LIB) 
LIB: .FACTR LB:[1,1]FOROTS/LB 
- END 
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INTRODUCTION 


This book contains tests/exercises for two different courses, 
Programming RSX-11M in MACRO and Programming RSX-11M in FORTRAN. 
Most of the questions apply to both courses. If a question begins 
with "In MACRO" or "In FORTRAN", that question applies only to the 
specified course. Solutions are provided for all tests/exercises. 
Where it is appropriate, Separate solutions are provided for MACRO 
and FORTRAN. Solutions which involve programs should also be 
available on-line. 


Check the Student Guide in the Student Workbook for your 
course for information on how to use the tests/exercises. 


Using System Services 
TEST /EXERCISE 


Match the function with the type of system service used _ to 
perform it. 


Function Type of System Service 

a. The tasks send data 1. System and task information 
back and forth to 
each other 2. Task control 

b. The tasks read data 3. Task communication/coordin- 
from a file on disk ation 

c. The tasks get input 4. I/0 to peripheral devices 
from an operator 
at a terminal 5. File and record access 


6. Memory use 


Draw a figure to illustrate a method of providing a _ system 
service through the Executive. 


Using System Services 


SOLUTION 


Match the function with the type of system service used _ to 
perform it. 


Function Type of System Service 
3. a. The tasks send data 1. System and task information 
back and forth to | 
each other 2. Task control 
5 b. The tasks read data 3. Task communication/coordin- 
= from a file on disk ation 
4 cc. The tasks get input 4. I/0 to peripheral devices 
from an operator 
at a terminal 5. File and record access 


6. Memory use 


Draw a figure to illustrate a method of providing a _ system 
service through the Executive. 


See Figure 1-1 or 1-2 


Directives 
TEST/EXERCISE 


In MACRO-11 


a. Modify the task READF to use the SC form of the Read Event 
Flags directive. 


b. Modify the task READF to use the $S form of the Read Event 
Flags directive. 


In FORTRAN, modify the task READF to set all of the odd 
numbered flags from 1 to 15(16). 


Modify WFLAG and SFLAG to use a global event flag instead of a 
group global event flag. Omit any unnecessary code in the 
tasks. Check with your instructor to find out which event 
flag to uSe. 


Write a task which does some work and periodically checks a 
group global event flag. Have it display a message and exit 
when the flag has been set. Write another task, or modify 
SFLAG to set the flag. 


Add a requested exit AST routine to WFLAG. . 


In MACRO-11, add an odd address trap SST routine to the task 
SST. Include an instruction which causes the trap to occur. 


We 


+ 


The 


> “S> Or Sr We eh “Ed “S> WP “HP SP ‘Sr “E> Go “> “E> “OP 


RUFF ¢ 


SETF $ 


START $ 


File 


Directives 


SOLUTION 


+TITLE REAIIF 
*IQENT /0O1/7 
*-ENABL LC 5 Enable lower case 


LEX21A.MAC 


Modified to use the $C form of the Read All Event ¢sEX 
Fless 


directive 


This task 
event flags» moves them into resisters RO-R3S and then 
@xits. 


Tt 


eMCA 


BLN 


SETF 


CLR 
DIRS 
RCS 
RIVAF 


BCS 
MOV 
MOV 
MOV 
MOV 
LOT 


§ Come here 


ERR 3 
ERR1 3 


INC 
INC 


MOV 
LOT 


»ENT 


starts ury sets event flag il» reads the 


yuses the 6 form of the directive calls. 


flags ere returned as follows: 


word O = event fleds 1-16 
word 1 = event flags 17-32 
word 2 = event flads 33-48 
word 3 = event flags 49-64 


LL ROAFSCsSETFSeEXIT&ESsDIRS ¢ System macros 


9 9EX 
W 4 > Ruffer for event flas 
§ Values 
$ 1 > TFB for Set Event Flas 
1 girective 
R4 § Clear error counter 
#SETF > Set event flag i 
ERR1I y Kranmch om dir error 
$€C BUFF + Read the event flasss FEX 
5 (1 - 64). 
ERR2 § Branch om gir error 
BUFF yRO § Move the event flad 
BUFF +2 9 R1 > V@elues into the 
BUFF +4 9R2 5 resisters 
RUFF +6 9R3 
i Trae and diseley 
; resisters 
om directive errors 
R4 9 R4=2 for read error 
Re4 ¢ R4=1 for set event 
9 flasd error 
$NiSWykO y Error code into RO 
> Trae and disrlay the 
3 registers 
START 


OI II IN 


3 


CHO? 


10 
20 
C 


30 
AQ 
C 

10 
10 


11 
11 


Directives 


SOLUTION 


REAIF.FTN 
File LEX22.FTN 
Modified for exercises. Set odd numbered flags. !!EX 


This task sets event fled 1 and then reads 
flass 1 to 16 and disrelays them 


INTEGERK2 TEVF C146) ¥TOSW 


Set odd event flads. PlEX 
Nd S WK=1915%2 PlEX 
CALL SETEF (KyIT0SwW) f1EX 
Branch om directive error 


IF (InswW .LT. 0) GOTO 1000 
CONTINUE bIiEX 
Read the event flass into the array ievf. Note 
that im FORTANs we cam only read 1 fleas at a time 
Nd 20 T=1+916 
CALL REAMEF ¢I»TO0SwW)> 
Branch om directive error 
IF (insw «LT. 0) GOTO 1100 
Check I0ISW values 2 means set» O means clear 
Set the ievf value accordingly (1 means sety O 
means clear) 
TF ¢€10SW .EQ. 2) GOTO 10 
TEVF CT) =ITnSwW 
GOTO 20 
TEVF CT = 
CONTINUE 
Write out flad settings» starting with flag 16. 
WRITE (€5%30) 
FORMAT (€*’ EVENT FLAGS 16. TO 1. ARE? %) 
WRITE (€3»40) (CIEVF CJ)» Jiéyl»-1) 
FORMAT ¢€% “s16T2) 
CALL EXIT 
Come here an directive errors 


00 WRITE (521010) Tosw 

10 FORMAT ¢¢ ERROR SETTING FLAG. ERROR CONE = ’»IS) 
CALL EXIT 

00 WRITE (Sy¥1110) Insw 

19 FORMAT (’ ERROR READING FLAG. ERROR CODE = ’»IS> 
CALL EXIT 
ENT 


* 


t gas Wee | 
5 Ne 


~ 


Foo | 
8 


IASI IONIAN 


+ 


‘Sr “> “SP Shr > Wd rh EP “> > BP “EP 


Directives 


SOLUTION 


FROGRAM WFELAG 
FILE LEX23A.FTN 
Modified to use event flas 35¢10) PlEX 


This task creates the srour slobal event flags, and 
then clears event flags 65. and waits for it to be set. 
When the flas is sety it writes a messase and exits 


Install and run instructions? 


Rur WELAGs then run SFLAG. At least ane of the 
tasks must be installeds or else the RUN command 
Will trys to install both tasks under the same 
mame CTTmn 


WRITE (S920) 


FORMAT (€’ CLEAR ANT WAIT FOR EF 35. TO BE SET’)! !IEX 
CALL CLREF (35s T0SW) 11EX 

IF ¢©0SW LT. 0) GOTO 1100 

CALL WAITFR (35rT0SW)- 1IEX 


IF (TOSW «LT. 0) GOTO 1200 
WRITE (5930) 


FORMAT (’ EF 35. HAS BEEN SET. FWAIT WILL NOW EXIT’) 


IIEX 
CALL EXIT 
Error Frocessing 


00 WRITE (Svi1110) Insw 
10 FORMAT (’ DIRECTIVE ERROR CLEARING EVENT FLAG 35. 
1 0SW = *%,TIS) tIEX 

CALL EXIT 
ag WRITE (S¥1210) Trsw 
10 FORMAT (’% DIRECTIVE ERROR WAITING FOR EVENT FLAG 
1 35. OUSW = ’»IS) 
CALL EXIT 
ENT 


*TITLE SFLAG 
*ITENT /017 
*ENABL LC y Enable lower case 


FILE LEX23B,.MAC 
Modified to use event flag 35. EX 


This task sets event flad 65. It assumes that the 
srour global event fleds have already been crested, 


Assemble and task-build instructions? 


MACRO/LIST LBSC1+1IFROGMACS/LIBRARY » devi CufdISFLAG 


LINK/MAP SFLAGsL BI C1» LIPROGSUBS/LIBRARY 


ll 


= 


y 


GON B® CID GI tS 


~ 


Directives 


SOLUTION 


*TITLE LEX24 
*IQENT /01/7 
*ENABL LC > Ensble lower case 


+ 


FILE LEX24.MAC 


This Frosgram creates the srour global event flasdsys 
clears event flags 635. does some work and reriodically 
cehcks event flags 65. When the fleas is set it writes 2 
message and exits. 


Assemble and task-build instructions? 


MACRO/LIST/OBJECTIWFLAG LE? Cis LIFROGMACS/LIB-»s sEX 
RARY sdevs CufdILexs4 #9 EX 
LINK/MAF WELAG»y LE? C1» LIFROGSUBS/LIBRARY 


Install and Rum instructions? 


Rum WFELAGs then run SFLAG. At least ane of the 
tasks must he installed: or else the RUN command 
will try to anstall both tasks under the same 
names TTrrse 


: 
1 


“A> “Sh SP “Sh “Sr “SDP “Ch “EP “ED “MED “Ch “C> SP “SP MP “E> “OP “E> “> Wr SD 


*MCALL EXIT#S»WTSE$CyCLEFSCyCRGFSC ¢ Sustem 
; Macros 


*MCALL TYPE + Surrlied macra 
START? CLR RO ys RO used to identify 
y the error 
TYFE “LEX24 IS CREATING THE GROUP GLOBAL EVENT FLAGS? 
CRGOF $0 ’ Create srour slobal 
; event flags 
BCC OK § Branch on directive ok 


¢ If srour slohbal event flads already exists 
y Just disrelay message and continue 
CMF $NSWes FTE. RSU > Check for efs already 
$ in existence 
BNE ERR1 * Branch on any other 
s dir error 


TYFE “GROUP GLOBAL EVENT FLAGS ALREADY EXIST? 
ORS TYFE “CLEAR EF 65. WORK UNTIL IT IS SET 


CLEFEGO 63. > Clear event flags 65. 
RCS ERR 2 § Branch on directive 
y error 
AGAIN? CLR RA § Clear counter ¥¥EX 
§ Looe 2KK16 timesy then check flag 9 9EX 
LOOF? INC Rd y Increment counter #9 EX 
ENE LOOF > Not vet ecxecled: loors sEX 
+ asain ¥ EX 
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2 
07 
Aree Ane 
errr 


WRITE (Syl 
FORMAT ¢7 


CALL CRGF 
LF crinsw . 
WRITE 
FORMAT ¢¢ 

CALL CLREF 
TF ciosw . 


2a CONTINUE 
WRITE (S92 
FORMAT (7 
CALL REATIE 
IF ¢CiaGW . 
IF Ci0GSW . 
WRITE 
FORMAT ¢¢ 
CALL EXIT 

Error Fracessins 


30 


C 

ee 
C for code o 
IF ¢inSwW . 


Check 
900 
WRITE (S99 
me) 
GOTO 15 
Tor fatal 
WRITE (Sel 
FORMAT ¢7 
LER STS. TS 
CALL EXIT 
WRITE (S94 
FORMAT ¢7 
1 SW = “9 
CALL EXIT 
WRITE (S39 
FORMAT ¢7 
1 45. 
CALL. 
ENT 


C Here 
1000 
O10 


1100 
L110 


a 


easy 
Ng 


NSW = 


Directives 


SOLUTION 


0) 


LEX24 IS CREATING 


Cy TSW) 
OF GOTO POO 


LT 
0)? 


CLEAR EF 65. 


THE GROUF GLOBAL 


PIEX 


WORK UNTIL IT IS SET‘) 


C65" T0SW) 


LT. 


8) 


COUNTER 
Fo €6S9 TSW) 
QO)? GOTO 
TO 


LT. 
Nk s 


(S30) 


EF 


fo -t7y 


NE. 


10) 


O10) 


2) GOTO 
NO 25 Rely 65535 


Lay 
ae 


6a 


> GO 


HAS CYCLED >) 


HAS BEEN SET. 


1100 
ltEX 
1tEX 
ItEX 
lex 
1 tEX 
11EX 
1iEX 


1200 


oo 
doe Ane 


LEX24 WILL NOW EXIT’) 


meanina flass glreaedy exist 


~17) GOTQ 1000 
C In that casey Just disles s messade and comtinue. 


errors y 


nsw 


QIRECTIVE 


Won 
110) 
IS) 

wioa) 


QTRE 


fy 


é 


on) 


0 
I 


y IS) 


nsw 


INSw 


TIVE 


kr 
wD 


Wig 


FORMAT ¢¢ GROUP GLOBAL EVENT FLAGS ALREADY EXIST’) 


arelay messase and exit 


ERROR CREATING GROUF GLOBAL 


ERROR CLEARING EVENT FLAG 6% — 


ERROR READING EVENT FLAG 
PtEX 
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EVENT FLAGS 7%) 


WISE$C 65. r] 
r] 
RCS ERRS3 ; 
; 
TYFE 
EXIT$S 
* AST Service routine 
REXAST? TYFE WHY ME? NOT THIS 
ASTX$S r) 
ERR3? INC RO 3 
5 
ERR2? INC RO 5 
; 
ERK? INC RO ; 
3 
ERRO? MOV SNSWy RI ; 
$ 
5 
IoT 3 
«ENT START 


FROGRAM WFLAG 


FILE LEX25.F TN 


This task 
then 


When the flas is 


INO I NAAN AI 


Directives 


SOLUTION 


Install and rum instructions? 


Modified to imclude @ Reauested Exit AST 


creates the srour slobel 
clears event flas 65. 
sety 


and waits 
it writes 38 messaese 


Wait for event flag 65 


to be set 
Branch on 
error 


TIME! !s » 


AST exit to return 
RO = 3 if error on 
wait for dir 
RO = 2 if error on 
clear flas dir 
RO = 1 if error on 
create srour 
Flace [SW in Ris 
RO=0 for srecify 
requested exit 
Trae and dumr 


'lEX 


event fladsy 
for it 


directive 


SEF 65. HAS BEEN SET. WFLAG WILL NOW EXIT> 


¥9EX 


Tere message 


yFEX 
¥9EX 


flads dir: 
leave 


99EX 


AST err 
resisters 


and 
to he set. 
and exits 


EVENT FLAGS?) 


C Rum WELAGs then rum SFLAG. At least one of the 
C tasks must be installed»s or else the RUN command 
C will try to install both tasks under the same 
C name (TTmnm 
C 
EXTERNAL REXAST tlEX 
C Set ur Reavested Exit AST Plex - 
CALL SREA CREXAST» IUSW) PiEX 
IF (f0SW «LT. 0) GOTO X50 Plex 
WRITE (S¥10) 
10 FORMAT (€’ WFLAG IS CREATING THE GROUF GLOBAL 
CALL CRGF ¢»sT0SwW) 
IF (IOSW .LT. 0) GOTO 300 
1S WRITE (S20) 
20 FORMAT ¢(’ CLEAR ANT) WAIT FOR EF 65. TO BE SET’) 
CALL CLREF (465+I0SW) 
IF (I0SW .LT. 0) GOTO 1100 
CALL WAITFR (65+I0SW) 


IF ¢(TDSw 


LT. 
WRITE (S30) 


0) GOTO 1200 
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Directives 


SOLUTION 


TITLE SST 
+INENT /01/7 
*ENABL LC > Enable lower case 


FILE LEX26.MAC 


t 


Modified to include an odd address trar 5 9EX 


This task sets ur an SST vector table to handle SST’s 
for BFTy TOTe and odd address trares. It then executes 
instructions to cause these trars to occur. In each 
SST routines 3&@ messase is disrlayed and then the task 
continues. Finaglivs a TRAP instruction is executed, 
Since mo user SST routine is srecified for TRAF» the 
Executive aborts the task. 


Assemble and task-huild instructions? 


MACRO/LIST L&iC1l» LIPROGMACS/LIBRARY » devi CufdILEX26 
LINK/MAP LEX269LB3 C191 IFROGSUBS/LIBRARY 


*MCALL SVTKS#CeEXITSS ¢ External system macros 
+MCALL TYFE § External surelied macro 


y 
VTABLE? .WORTD ONUTRE sMPTVIOsBFTsTOT ¢ SST vector table 
> ¥¥EX 
START? SVTK$C VTABLE»s4 > Have Executive set ur 
> SST table 
RFT ’ RET instruction 
TST 1 + Test location ly #FEX 
§ Causing an odd FsEX 
¢ addr trar ¥ 9 EX 
CLR 120000 s Clear location 120000» 
y Causing & memory 
y Frotect violation 
IOT § IOT instruction 
EXITS > Exit 
NEW? TRAF § TRAF instruction 
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Using the QIO Directive 
TEST/EXERCISE 


Modify SYNCHQ or ASYNCQ to write prompting text (e.g., "TYPE 
SOME TEXT: ") before issuing the read. 


In MACRO-11, modify NUMER, replacing the error handling code 
with code which writes out an error message plus’ the 
appropriate status code. Refer to SYNQER for sample error 
messages. 


Modify NOECHO to use one QIO directive to both write the. 
prompt and read the input. Also, have the read timeout if no 
key is struck for 20(18) seconds, in which case, display a 
timeout message and exit. | 


Write a task which prints a message on every terminal in the 
system. The task should break through any pending I/O at the 
terminal. (Note: This task must be task-built as a 
privileged task, using the /PRIVILEGED:8 qualifier in the 
task-build command; /PR:@ in MCR) | 


21 
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+ 
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Using the QIO Directive 


SOLUTION 


»TITLE SYNCHQ 
+IQENT /017 
*ENABL LC ¢ Enable lower case 


FILE LEX31.MAC 

Modified to display rrometing text ¥xEX 
This task reads sg line of text from the terminals 
converts all urrer case cheracters to lower casey and 
Frints the converted message back at the terminal. It 


uses syumchronous QIO directives, 


External sustem 
macros 


*+MCALL QTOWSC sQTOWSS vEXI TSS 


a 
¥ 
a 
y 


ITOSBE$ *BERW 2 


+ I/0 Status Block 
RUFF 3 +BLKE 80, 2 $s Text buffer 
FRMPT: ASCII /TYFE SOME TEXT? 7 ¢ Fromet ye E 
LERMET =.-FPRMPT ’ Lensth of fFromet s9E 
»EVEN IE 
START? CLR RS Error Count 


Error indicator ~ 9 
means directive error 
(OSW in RS)» mes 
means I/O error 


¥ 
CLR R4 j 
y 
5 
; 
y (1/0 status in R33) 
y 
; 
; 
; 
3 
bd 


QIOWSC T[O.WVBs Sri OSB» » <P RMPT »LERMPT » 40> 


tisrelay rromet 9 9EX 
RCS ERRS Rranch on dir errors sEX 
TSTB IOSE Check for I/0 errors sEX 
BLT ERR3A Rranch on I/O error?’ EX 


QIOWSC T[O.RVE»Sels/TOSRy»<BUFF*80.> § Issue 


a 


5 read 


RCS ERR1 § Branch on dir error 
TSTB IOSB + Check for I/0 error 
BLT ERRiA § Branch on I/O error 
MOV TOSB+2 RO 3 Get count of characters 
ys tured in 
CLR Ri § Offset into buffer to 
§ character 
LOOF? CMFR RUFF CRI) s#°A > Check for urrer case 
s ASCII character 
BLT NEXT ¢§ Kranch if below range 
CMF RE BUFF (CR1) + #°Z 
RGT NEXT 5 Branch if shove range 
Here if urrer caser move to resister R2 and convert 
MOVE — BUFF CRI) »R2 ¥ Move to resister 
ALL #3249R2 y Convert to lower case 
MOVE R2»yBUFF CRI) Replace in message 
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Using the QIO Directive 


SOLUTION 


PROGRAM ASYNCQ 


MOOwWNKRUMDSA HH 


C Set ur 


C 

C FILE LEX31.FTN 

Cc 

C Modified to diselay ferometing text PlTEX 

C 

C This rrosgram reads a line of text from the terminal» 
C converts any urrer case cheraecters to lower case and 
C rrints the converted messase back at the terminal. 

C It uses esymchronous QIOs and an event flags for 

C synchronization. 

C 


RYTE ITOSK(4),IBUF (80) 
TIIMENSION IFARC46) sKC10) 
EQUIVALENCE (NUM»sTOSKC3) > 
REAL FRMFPT (4) 1 lEX 
DATA FRMPT /‘TYPE‘’s’ SOM’s’E TE’s’XT? “/SITEX 
DATA ITOWVE/*11000/ 
DATA ITORVE/*10400/ 
TATA IVFC/*40/ 
values for the QI0 
IUNIT#S 


C Set ur for QI0 to issue Frromet 1'EX 
CALL GETADR(IFPARCI) »PRMPTC1)> PlEX 
IFAR(2)=16 1tEX 
IFAR(3)="40 Pl EX 


C Issue 


1 
! 
1 
i 
asymchronous write PtEX 
CALL QIOCIOWVB» IUNITs Ss »TOSByIPARy ING) PlEX 

i 

i 

i 

1 

i 

1 


IF ¢I0S .LT. 0) GOTO 780 I1EX 
CALL WAITFR(S»TInNS) 1'EX 
IF (10S .LT. 0) GOTO 785 IlEX 
IF ¢€IOSBC(1) LT. 0) GOTO 799 I1EX 
C Set ur for read 1I1EX 
IFAR(C3)=0 1lEX 


C Get th 
CG Issue 


C Check. 


C Lo som 


IFAR(2)=80 

e address of the I/0 buffer 

CALL GETADIRCIFARCI)»I BUF C1))> 

the QIo 

CALL QLOCTORVByIUNITsS»+IOSBsIFARy INS) 
the directive status 

IF («ius LT. 0) GO TO 800 

e work while I/0 oreration is being rerformed 
nO SO I=1+10 


KCI) =64xkI 

val @) CONTINUE 

C Wait for I/70 to comerlete 
CALL WATTFR(SsTI0S) 

C Check directive status 


C Check 


IF (10S .LT. 0) GO TO 8OS 
the I/0 status 
IF (IOSB(1) .LT. 0) GO TO 810 
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Using the QIO Directive | 


SOLUTION | 


*+TITLE NUMER 
+IQENT /01/7 
*+ENABL LC § Enable lower case 
r+ 
¢ FILE LEX32.MAC 
ba 
§ Modified to include error messade code 93 EX 
y 
* This task does 38 simrle addition and outruts the 
s results. It demonstrates the use of $EDMSG for 
§ formatting messases with numeric data 
Siac 
*MCALL QIOWS*sEXITSSeDIRS ¢ Sustem macros 
eMCALL QTOWSS y Sustem macros s5¢EX 
*+NLIST BEX > To not list binary 
: > extensions 
> Lata oe 
At «WORD 109 * ist addend and start 
§ of argument block. 
B3 »WORD 22 § 2nd addend 
C3 + BLKW 1 § Location for sum 
+ 
OUT? QrowWs TO.WVBsSelv»lOSRy»<BUFy»40> 3Q10 for 
y OUtrUtL messase 
IOSE?: +BLKW 2 + I/O status block 
gy 
7 Set ur for $E0NSG 
; 
BUF ¢ «BLAKE 80. § Outrut buffer 
FMES3 “ASCIZ /240. WAS AMMEN TO “40. GIVING ZD.7 
¢ Format string 
§ Set ur for error messedes using $E0MSG 99 EX 
; +EVEN ¥3EX 
ARG? *BLAW 1 + Argument blocks sEX 
FMTi0e .ASCIZ /NIRECTIVE ERROR ON WRITEs DSW = ZD/ $5$EX 
FMTiI: .ASCIZ ‘’I/0 ERROR ON WRITEs I70 STATUS = ZI’ ssEX 
*EVEN | : ye EX 
»+LIST REX § List binary extensions 
+EVEN $ Move to word boundary 
START: MOV ArC § Move ist addend to sum 
y word 
ALK ByC § Add 2nd addend to form 
y slum 
+ Set ur for call to $EDTMSG 
MOV #RUF » RO § Addr of outrut huffer 
MOV #FMESsR1 y Addr of format string 
MOV #AxR2 > Addr of arsument block 
CALL $E0MSG + Make cally character 
y count returned in Ri 
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MOND CHD GW hoe 


10 


+ 


from 


e> “> “Srp “> Sr SP “Cr SP S> SP WP SP SP Sd 


Yata 


“er “> “EP 


MES + 
LEN 
BUFF 3 


BLEN 
BUF 3 
TMOMS 3 
LTMOMS 


IOSEH: 
LENT: 


> Tefine functions locally to all 


word which was 


Using the QIO Directive 


SOLUTION 


*TITLE NOECHO 
*IDENT 7/017 
*ENABL LC 


FILE LEX33,.MAC 


Modified to combine QIOs 


a 


y 


the terminal without echo. 


entered, 


Enable lower case 


and include timeout g5EX 


This task writes @ Promet and then issues a QIO to read 


It then disrelays the 


Assemble and task-build instructions! 


MACRO/LIST LBS C11 FP ROGMACS/LIBRARY sdevi CuicILEX33 


LINK/MAFP LEX33»FROGSUBS/LIBRARY 


*MCALL EXITS$S*QIOWSC*QIOWSS § Sustem macros 
*MCALL OITRERR»: TOERR 3 


«NLIST BEX 


3 
3 
“ASCII /SECRET WORD? 7 $ 
9 


= »-MES 


Surerelied macros 


Tion’t list of binary 
extensions 
Fromet messese 


Length of fFromet 


“ASCILT “152=/N0 LONGER A SECRET WORDS / 


= + ~ BUFF 
«BLAKE 80. 
“ASCII /READ 
=4-TMOMS 

+EVEN 

»WORD 0 
»WORT 0 


§ statement to shorten 


IO.RFR 
TF. RNE 
TF.TMO 
I0.FNC 


Code 


“sr “> “a> 


rn 


START $ 


=004400 
=20 


#200 


="TO.RPR! TF. RNE! TF. TMO™ 


«LIST BEX 


<> “> “@> 


TIMED OUT/ 


a 
¥ 
a 
bd 
a 
bd 
a 
g 


directive 


“@> “Er SP “> Sd 


QTOWSC ITO.FNCySe1s»TOSK,» 


BCS QNERR1L 


a 
, 
a 
’ 
4 
¥ 
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Freceding remark. 

Lensth of Remark. 

Ineut buffer 

§ Timeout messade bE 
gy 


IOSEK is broken into 
two rarts for 
convenience. 

ow us of an assismment 
statement 

Lefine functions 


QIO function code 
List binary extensions 


y< BUF +80.722MES»LEN: 44> 

Issue read after #F#EX 
Fromet 99 EX 
Branch on dir error 


WON RDS Gh 


Using the QIO Directive 


SOLUTION 


FROGRAM NOECHO 


Cc 

C File LEX33.F TN 

C 

C Modified to use read after rromet and to timeout !!EX 

C 

C This task frromets for inrutys reads it without echo and 

C then skies to the next line and diselays the ineut 

C text and exits. 

C 
RYTE RUFF (80) »TOSE(4)sCRC1) 
INTEGER FARM(46) 
REAL FROMFT ¢4) ' Promet PIEX 

Cc 
IATA TOFNC 4"4620/ ! Qro PlEX 

C ! funetion! 'EX 

C ! .code IIEX 
DATA ISTMO /2/ ! Timeout !!EX 

C ! status !!EX 
DATA CR /°157 ! Carriase return character 
TATA FROMPT /’SECR’»9 “ET W's “ORD 797 i alia 

G ! Text Plex 

C Set ur the I/0 rarameter list 
CALL GETADR (FARM(C1)» RUFF C1) ) ! puffer address 
FPARM(2) = 80 ! Buffer length 
FARM(C3) = 2 ! Timeout = 2 !!ITEX 

Cc ! * 10 sec PlEX 
CALL GETANIR (CPFARM(C4) *FROMPTC1)) ! Fromet addr !!EX 
FARM(S) = 13 ' Fromet lLensth! 1 EX 
FARM(6) = "44 ! Vertical 11tEX 

C ! 6format contr! lEX 


C Issue read no echoy read after rromety with timeout !!EX 
CALL WTQIO (IOFNC+sSels*sTOSByFARMs IDS) 
IF (10S .LT. 02 GO TO 100 1 Qir error? 
IF (TOSBC1) «LT. OF GO TO 110 ! ¥/0 error? 

C Check for timeout 


IF ¢(ITOS8&(1) .NE. ISTMO) GOTO 1 ! Branch if no! lex 
C ! 6 timeout PIEX 
TYPE Ky ’REAY TIMED OUT’ ! fliselasy I1EX 
C ! message . !!EX 
CALL EXIT f and exit 1I1EX 
1 — WRITE (S92) CRey (BUFF CI)»T=1sIOSBC3)) $! Echo inreut 
2 FORMAT (% ‘’sAly’NO LONGER A SECRET WORD? ’»80A1) 
CALL EXIT 
C 
C Error conditions 
C 
100 TYPE X¥» “DIRECTIVE ERROR ON READ. STATUS = ’»TIDS 
CALL EXIT 
110 TYFE X» ’I/0 ERROR ON REAL. CODE = ‘»IOSKH(1) 
CALL EXIT 
ENT 
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Using the QIO Directive 


SOLUTION 


FROGRAM LEX34 


C FILE LEX34.FTN 


C Solution to Module 3» Lah Exercise 4 


C Task does 8 write breakthrough to all terminals. 


C Task-build with /FRIVILEGED?O aualifier 


C- 


3 


mo 


INTEGER TTUNITs USW 


DATA TTUNIT/O/ ! First outeut to TTO? 
INTEGER RABO G ren Gores 

BYTE SUCCODRC2) ' I/O success codes 
EQUIVALENCE CSUCCOD:sIOSE) ! First butes of IOSEK 
INTEGER TEDW ! Mnemonic for "Tllesal 


DATA TETIU/-99/ 
INTEGER TOFCOD 


' Tlevice or Unit" DSW code 
! I/0 function code 

! mnemonic 

! Write losdicel blocky 
' 
! 


Write breakthroughs 
and restore cursor 


DATA ITOFCOD/* 5017 


C 
C Load ersrameter list 


CALL GETADIRCPARAM(C1)» “HELLO THERE “> 


PARAM(C2) = 11 | Lensth of string 

FARAM(C3) = *40 ! Rlank for carr. ctrl. 

CALL ASNLUNC4s/’TT’ sTTUNITTs=ISW) !§ Assism LUN 4 to 
! TTrii 


IF (LSW.LT.O)? GOTO 900 
CALL WTQTOCIOFCODs 4919+ TOSB»FARAMs SW) 


TF (uSW.LT.O> GOTO 910 ! Titrective error 
TF (Succon¢c1>).NE.1> GOTO 920 ! I/0 error 
TTUNIYT = TYUNIT+1 

GOTO 10 


> Error from ASNLUN. If ASNLUN failed because of illegal 


00 


C 
f 
Co unit mumbersy must have rassed the last terminal. Exit. 
9 


IF (YiSW.EQ.TETOU) CALL EXIT 


TYPE 905+ 0SW ! Other error 
FORMAT (’ ERROR ON ASNLUN. [SW = ‘*I4) 
CALL EXIT 


TYPE 91S TTUNIT » DSW 

FORMAT (° DIRECTIVE ERROR ON QIO TO TT’ »02%°3 77 
1 ’ DSW = %9I4) 

CALL EXIT 

TYPE 925» TTUNIT »SUCCONC2> »SUCCON(C1> »s TOSBC2) 


FORMAT ¢(’ [70 ERROR ON QIO TO TT’ 029° 7 
1 ’ 70 STATUS BLOCK = ’9T4x’ »’9T4y% /’%9TS) 


CALL EXIT 
ENT 
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Using Directives for Intertask Communication 
TEST/EXERCISE 


Modify RECV1 and SEND1 to synchronize using Suspend and Resume 
directives instead of event flags. 


Modify RECV2 so that the display includes the name of the 


sending task in addition to the data. 


Write another sender task to send data to RECV2. Modify the 


receiver so that it receives data from your task only, not 
from SEND2. 


Modify SPAWN so that it spawns CLI..., MCR..., or ...DCL 
several different times and sends a different MCR or DCL 
command line each time. Display the exit status after each 
command executes. 


Write a parent task and an offspring task. Have the parent 
spawn the offspring. Have the offspring emit status to the 
parent every five seconds for 3@ seconds and then exit. Have 


the parent display each status value. Optional: Use an AST 
routine in the parent for synchronization. 
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Using Directives for Intertask Communication 


SOLUTION 


eTITLE SENDA 
eIQNENT /0O17 
*ENABL LC § Enable lower case 


FILE LEX41A.MAC 


Modified to use Susrend and Resume directives forssEX 
synchronization ¥9EX 


This task rromets at TI? for a line of text and sends 
the data to RECV1 for rrocessing,. Synchronization is 
handled through & common event flas. 


Assemble and task-huild instructions? 


=MACRO/LIST/OBRJECTSSEND1 LBC Lis lL IPFROGMACS/LI-%5EX 
~SBRARY sdevi CufdILex4i1a 
SLINK/MAF SEND» Lat Ci» LIFROGSUBS/LIBRARY 


Install and run instructions? RECVI must be installed 
and trum erior to running SEND. RECVLI continues to run 
until it receives 3 data rackets. 


*MCALL STIATSCvEXITSSsRSUMSC § Sustem macross sEX 
»*MCALL TYPEsINFUTsSRIRERR ¢§ Surelied macros 


FFER? .«BLKE 2&- + Tlata buffer to be sent 
+ENABL LSE § Enable local symbol 
§ blocks 
ART?: TYFE “TYPE A LINE OF TEXT,s 26 CHARACTERS OR LESS>= 
. * Tyre Fromet 
INFUT #BUFFER, #24. § Get text to send 
STAT$C RECVL» BUFFER § Send data to RECVI $¢F¢EX 
BCC 1% > Branch om directvie ok. 
TIRERR <UNABLE TO QUEUE DATA TO RECVi> ¢ Diseleas 
5 error message and exit 
: RSUM$C RECVI > Resume RECVI e5EX 
RCC 3 + Branch on directive oks5EX 
DIRERR <UNABLE TO RESUME RECVis 3 ¢9EX 
; EXITS s Exit ge EX 
+ENT START 
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Using Directives for Intertask Communication 


SOLUTION 


»TITLE RECVI 
+IQUENT /01/7 
*+ENABRL LC > Enable lower case 


+ 


FILE LEX41B.MAC 


This task and receives data from any sender task 
(e.ade» SENDA). It erints the data on Trt. Then it 
waits for another date racket. It does this until it 
has received 3 messages and then exits. 


This task synchronizes with its sender through en 
event fleas, 


Assemble and task-huild instructions? 
“MACRO/LIST/OBJECTIRECVI LBEICLs LIPFROGMACS/LIE~ 5 5EX 
~SRARY sdevilufdIRECVL 99 EX 
LINK/MAF RECVUL,YL Ei Cis 1 IPROGSUBS/LIBRARY 


Install and run instructions: RECV1 must be installed 
and run before running SENIW. : 


“a> “> “> “SP S> “HD “SP GP “Sr GP SP > SP SP D> > GP SP “E> “SOP MP “ED 


»>MCALL RCOVOSCSEXITSESs SFENOSS$ Sustem macros ¥#EX 
*MCALL TYPE stIRERR > Surelied macros 


c> “a> 


Receive huffer 


uF 
* 


RRBUFFS «BLKW 
; 


+ENABL LSE 5 Enable local symbol 
§ blocks 
¥ 
START? MOV #39RS > Initiglize message 
5 counter 
AGAIN? SPNISS + Susrend self umtil?¢ EX 
5 MmMmessade arrives 


a 


RCC 3S § Branch on directive ok 
QIRERR <SUSFEND QIRECTIVE FAILED: §¢ Diselay ¢FEX 
> error message and exit 


5 We det here when resumed byw SENTING o#EX 
3$3 RCVIGC  »R BUFF ¢ Receive from anvone 
BCC wh: ) § Branch om directive ok 


DIRERR =RECEIVE DIRECTIVE FAILED IN “RECV1I"> 


¢ Dligrelay error Message 
5 and exit 
¢ Successful receirt 
3$ 3 TYPE =DATA RECEIVED BY "RECVI"S> § Diselay 
+ data 
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Modified to use Susrend and Resume for synchronization EX 


3 
we 
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Using Directives for Intertask Communication 


SOLUTION 


*TITLE RECV2 
*IDENT /01/ 
*ENABL LOC > Enable lower case 


FILE LEX42.MAC 99 EX 


Modified to disrlay the sender task name in addition #sEX 
to the data ¥9EX 


This task receives data from another task. It erints 
the datas alons with @ headery om TI?. Then it waits 
for another data rackets continuing this until it has 
received 3 messases. 


This task synchronizes with its sender using RCSTS$. 

Because of this synchronizations the tasks can be run 

im ams order, with any relative feriorities. 

Assemble and task build instructions? 
=MACRO/LIST/OBJECTSRECV2S LEI Cl» TIFPROGMACS/LIB~-s¢ ¢EX 
“~SRARY sdevilufdadILEx42A 55EX 
“SLINK/MAF RECV2sLE3C1,s1 IF ROGSUBRS/LIBRARY 


Install and run instructions! RECV2 must he installed. 


*NCALL RCOSTS$CeRCVUNSCeEXITSS § System macros 


»*MCALL TYFE*sDIRERR 5 Surelied macros 
; : 
RBUFF $ »>BLKW 1S. y Receive buffer 
; 


TASKNM? «BLKW 3 


? 


a 


y 


CE oer wer o> 


START? MOV #39RS 
RECEIV? RCST$C  »RBUFF 


Buffer for task nmamessEX 
+ENABRL. LSE > Enable Local symbol 
5 blocks 


Set ur message counter 
Receive from anvone 
RCC oF Kranch on directive ok 
QIRERR <RECEIVE DIRECTIVE FAILED IN "RECV2"> 
’ [liselay error message 
> and exit 


“S> “> “a> 


Now get the racket 
Branch on directive ok 


RCVOSC »RBUFF 
BCC b$ 


Successful receirt or unstorred by another task. First 
check for unstorred after being storredsy in which case 
we have to receive the data 
$3 CMF $USWekIS.SET i Were we storred due to 
y mo data 
RENE &$ + If noty we have a data 
> Facket 
; 
; 
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Using Directives for Intertask Communication 


SOLUTION 
Cc 
INTEGER RBUFF (15) 
INTEGER [1SWy» ISSET 
INTEGER TASKNM(3) ! 
C | 
LATA ISSET/2/ i 
C 
C 
0 100» I=1y93 
CALL RCST(»RBUFF ytSW) ! 
IF (USW.GE.0) GOTO 5O 
Ture *» RECEIVE DIRECTIVE 
1 DSW = ’»fSw ! 
GOTO 1000 ! 
C 


C Successful receirt or unstorred 
C check for unstorred after heing 
C we have to receive the dete 

0 IF (USW.NE.ISSET) GOTO 606 


5 
C 
C 
C 
C 


Storred due to no date? 


CALL. 
IF (QSW.EQ.1) GOTO 460 
TYFE Xe “RECEIVE MIRECTIVE 
LUNSTOFPPED. DSW = “snSW 
GOTO 1000 

C Diselay data 


RECEIV( sRBUFF » »DSW) 


Receive buffer 


form! lEX 
11 EX 


Ruffer for ASCII 
of task name 
SW code mnemonic 


Receive from anyone 


FAILED IN 
Nisrelay error 
and exit 


*"RECV2*", 
message 


by another task. First 
storredys in which case 


! storred due 
! 6to mo data? If not 
! (NE), we have ~@ 

! data racket 


Were we 


! Now det the racket 


FAILED AFTER "RECV2" 
{ fliselaws error 
! messade and exit 


60 CALL RSOASC (6»RBUFF » TASKNM) 1lEX 
TYFE 7S» TASKNM: C(RBUFF (J) »J=3%15) PlEX 

73 FORMAT (’ DATA RECEIVED BY “RECV2"3°/1X*3 !!EX 
LA2Z91Xr13A2) 1tEX 


100 CONTINUE 
C Have received 3 messages 
TYFE xy’ "RECVS" 


1 NOW EXIT’ 
1000 CALL EXIT ! 
ENT! 
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Exit 
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Using Directives for Intertask Communication 


SOLUTION 


FROGRAM LEX43A 
FILE LEX43A.F TN tiEX 
A second sender task to send data to RECV2 !IEX 


This task rromets at TI? for a line of text and sends 
the data to RECV2 for rrocessing. The receiver will 
continue to run unmtil it receives 3 messages, 
Synchronization is handled throush RECV2’s stor bit. 
RECV2 and LEX43A may be run in anys order. 


Install and run instructions’ LEX43B must be PiEX 
imstalled under the name RECV2, Plex 
BYTE BUFFERC26) | Send buffer 


INTEGER OSwW 

REAL RECV2 

DATA RECV2/SRRECV2/ 1 Receiving task mame 
INTEGER IEITS*sIEACT ! Error mnemonics 
DATA IELTS» ITEACT/-89-7/ 


TYPE Xv¥’TYFE A LINE OF TEXTs 26 CHARACTERS OR LESS“ 
READ (S95) BUFFER 

FORMAT (26A1) 

CALL SENDICRECV2,BUFFER:rs0SW) ! Send data to RECV2 
IF (DSW.EQ.1) GOTO 10 

TYFE X» “UNABLE TO QUEUE DATA TO "RECV2", DSW = ” 

1» 0SW 

CALL USTFCRECV2 »tNSW) 
IF (QSW.EQ.1) GOTO 20 
IF (NSW.EQ.-TEITS) GOTO 


! Unstor RECV2 

|! Branch om directive ok 
20 ! Isn’t he storred? 

1 0 6That’s oksy he’1ll fick 

! our data when he 

! executes RCONSS 
20 !' Is he not active? If 

! nots he’ll Fick wr 

! data when activated 
TYFE xe ’UNABLE TO UNSTOF “RECV2",. DSW = “nsw 

! Any other error is had 

CALL EXIT ! Exit 
ENT 


IF (QSW.EQ,.IEACT) GOTO 
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Using Directives for Intertask Communication 


SOLUTION 
Successful receirt or unstorred 
check for unstorred after being 
we have to receive the data 
$3 CMF $0SWs €IS.SET 5 
; 
ENE &$ ; 
5 
RCVEEC LEX43AsRBUFF 5 
BCC bs r 
NIRERR «RECEIVE DIR FAILE 
5 
5 
$3 TYPE “DATA RECEIVED BY 
TYPE #R BUFF +49 #25. 
SOR RS»sRECEIV ; 
3 
3 
; 
QEC RS 
BEQ TONE 
JIMF RECEIYV 
ONE $ TYPE “"RECV2" HAS RECET 
EXIT$S a 
»END START 


FROGRAM RECV2 


FILE LEX43R.FTN 


Modified to receive only from LEX43A 
TASK WILL 
SEND2 SENDS DATA. 
TO CHECK FOR SEND? SENDTING DATA ANI! 


NOTE? 


This task. 
It rrints 


it waits for another data rackets 


receives data from 
the datay 


EXIT WITH A NO DATA QUEVED 
MORE COMPLICAT 


another task 
alongs with @ headers 


by another task. First 
Storred:s in which case 
Were we storred due to 
no data 
If moty 
racket 
Now get the racket 
Branch om directive ok 
Tl AFTER “RECV2" 
Lliselay error message 
and exit , 
*"RECV2" ft 


we have a data 


y Disrley 

s text and 

s data sent 

Decrement message 
counter. Receive edain 
if haven’t received 3 
vet 


9 9EX 

#5EX 

99EX 
VET 3 MESSAGES ANT 

> Tyre exit 

; Mmessadte 
Exit 
EX 

1 tEX 

ERROR IF!!SEX 

En COnE IS NEEDENR 1lEX 


UNSTOFFING RECV2! !EX 


C@s.de 
om TI?. 
continuing this 


SENII2),. 
Then 


until it has received 3 messases.- 


This 


task synchronizes with its sender 


Because of this synmchronizationy 


im 


Install and rum 


installed 


any ordery 


with any relative 


instructions? 
under the mame RECV2, 
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LEX43EK must he 


using RCST. 
the tasks can he 
Priorities. 


rors 


1 IEX 
1 !EX 


UNSTOPPED: 


WILL NOW EXIT> 
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Using Directives for Intertask Communication 


Sb “S> “GP Sd “GP Srp Sd We SP GP E> Wr 


CME: 
LEN 
CMD2 3 
LEN2 = . 
CMDS 3 
LENS = + 


SMES: 
LSMES 


IOSE: 
EXSTAT$ 


CMITERL 


SPAWNS 
BUFF 


a 


FMT: 


STARTS 


This rrogram srawns MCR...» 
conmand liness 
disrlays each command’s exit 


5 Format 


SOLUTION 


*TITLE SPAWN 
eINENT /02/7 


*ENABL LC 


File LEX44.MAC 


4 
, 


Enable lower case 


rasses it a series of #FEX 
waits for each to exits and 99 EX 
99EX 


status. 


Assemble and task-build instructions! 


MACRO/LIST LBE¢ Cis 1IPROGMACS/LIBRARY »devi CufdILex44 
LINK/MAF LEX44eL Bi fis 1 IFROGSUBS/LIBRARY 


*MCALL SPWNS*SEXITSSsWTSESC sQLOWES »QTOWSC 


*MCALL DITRERR» TOERR 
*NLIST BEX 


sASCII "PIF &.MAC/LI" 
=,-CMD1 

“ASCII /ACT/ 

“~CMN2 

sASCII /TIM/ 

~CMIS 


a 
y 
a 
g 
a 
? 


System macros 
Surrelied macros 
Inhibit listings of 
binary extensions 


Command line 
Lenath of command 


LASCII /SPAWN IS STARTING ANI! WILL SPAWN/ 


*ASCII / MCR COMMANIIS/ 
=.—SMES 


+EVEN 
»BLRKW 2 
oBLKW 8. 


»WORT CMD1»sLENI 
»WORD CMDI2sLEN2 
»WORD CMTS y LENS 
«WORD 0 


“a 
¥ 
a 
y 


Startup message 
Length of message 
I/O status block 
Exit status block 


Table indexing 
MCR commands 


End of table 


SFUNS MCReee ver xer xd ey xEXSTAT 


» BLAKE 80. 
Strirms3 


a 
¥ 


*ASCIT /ANSFAWN REPORTING? COMMAND / 
*ASCIZ / COMPLETED. EXIT STATUS WAS Z0.4N/ 


QIOWSC IO.WVEsSrl»sTOSBy » = SMES sL SMES» 40> 


*EVEN 

BCS ERRID 
TSTE IOSB 

BL.T ERRIT 
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a 
, 


a 
y 
a 
9 


Branch om dir error 
Check for I/O error 


Rranch om I/O error 


<c> > We “E> ‘S> “ED 
> “> “> “Grp “> “ED 


<> “a> 
s> S> 


mm MMrAmmm 
mM > KK KK KK 


<Sc> “> “E> “a> 
“cr S> “Gp «> 
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Using Directives for Intertask Communication 


SOLUTION 
FROGRAM SFWN 
C 
C File LEX44.FTN. 
C 
C This rrogram sreawns »«-+-DCh» rasses it a series of !IEX 
C command Lines» waits for each to exits and PlEX 
C displays each command’s exit status. PlEX 
C 
C Date 
INTEGER EXSTAT(8) »FPLIST(4) e0SW 
BYTE BUFF C80) 
C Commands to be srawned? PIEX 
C o a 
C NIK *.MAC 7 ; 1lEX 
C SHOW TASKS/ACTIVE PlEX 
C SHOW TIME 1tEX 
C 
REAL CMINCS» 3) PIEX 
DATA CMDO/‘DIR 7 9°k.MA’s °C’ x O » O » 
1 “SHOW’ » “ TAS’ » “KS/A’ s “CTIV’ +E» 
2 ‘SHOW’ s “ TIM’ + ’E’ x 0 + Of PlEX 
INTEGER LEN(3) 
- TATA LEN/9»917+9/ 
C 
REAL Fe. 
ATA LICL/6Re « ICL 
c 
C Code bs 
WRITE (5915) ! Write message 
bes FORMAT (’ SFAWN IS STARTING AND WILL SPAWN “» 
1 “DCL COMMANI'S ‘> ftEX 
LO 30rT=193 
CALL SFAWNCDCL s x91»sr2EXSTATs »CMIIC 1» TI) »LENCI) 
1 »»sDSW) “TlEX 
! Srawn DCL 
IF (SW.LT.O) GOTO 900 ! Branch on dir error 
CALL WAITFR(1sIISW) | ! Wait for task to exit 
“IF (OQSW.LT.O) GOTO 910 ! Branch on dir error 
WRITE (S225) EXSTAT(1).AND.“377 |! Disrlay low 
! byte of exit status 
20 FORMAT (’ SFAWN REFORTING: COMMAND COMPLETE. ‘+ 
1 ’ EXIT STATUS WAS ‘’+I19’.%) : 
30 CONTINUE 
CALL EXIT ! Exit 
C Error handling code Bs 
900 TYFE X»’ERROR SFAWNING DCL. DSW = % »tSwW 
: GOTO 1000 a4 
910 TYPE Xs “ERROR WAITING FOR EVENT ene iSsWw = “’ »nhSw 
1000 CALL EXIT 


ENT! 
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NIRS 
BCS 
TST 
BGE 


“TIRS 


ERR1 3 
ERR23 
ERR3? 
ERR43 
ERRS? 
§ AST ro 
; 

¥ Value) 
; 
A 


STRTNS 


RCS 
BR 
EXIT$S 


NIRERR 
QIRERR 
NIRERR 
NIRERR 
NIRERR 


utines 


SETFSC 
RCS 
CMF 


REQ 
TST 


~BGE 


CNCTSC 
BCS | 
TST 


 ASTX$S 


OVRNMS ¢ 


OVRNML = 


a 


9 


OVRRUN § 


; 

ERRG? 
ERR7 3 
ERRS 3 


“ASCIT 
“ASCII 


¢ ~OVRNMS 


«EVEN 


QTOWsC 
ABRT $C 
BCS 

EXIT$S 


DNIRERR 
NIRERR 
DIRERR 
*ENT 


SOLUTION 
R4 > QIOWS to TI? 
ERR4 
RS ¢ Did offsrring exit? 
3S § Yes 
#CLEF ¥ No. Clear EF 1 asain 
ERRS 
1% Wait 


; 
> Once offsrring exitsy 
§ $0 should rarent = - 


ERROR ON INITIAL CLEFS> 
ERROR SFAWNING LEX45B> 
ERROR ON WTSE$C> 

<ERROR ON QIOWS$> 

ERROR ON CLEFS> 


entered when offsrring emits status 


(negative status value) or exits Crositive status 


1 § Awaken main code 
ERRS6 
$NSWs#tIS.SeET 5 If sets main code is 
5 mot ready vet 
OVRRUN i We’ve heen overrun 
STATUS. s Has offsrring exited? 
44 > If sor don’t try to 
; reconnect 
LEX4SB» sASTRTNySTATUS 
ERR? oF 
(SP )+ § Clean ur stack from AST 
y Let main code run 


If a new status comes im before we’re done with the old 
ones something is wroms. Stor everything. 


/STATUS RECEIVED BEFORE REALY. 7 
/ ABORTING BOTH TASKS./ 


TO.WVBe S239 999 <OVRNMS sy OVRNML + 40> 
LEX45B + Abort offsrring 
ERRS 

y Exit this task 
<ERROR FROM SETF# IN AST ROUTINE? 
<ERROR CONNECTING TO OFFSFRING? 
<ERROR ABORTING OFFSPRING? 
START 
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Using Directives for Intertask Communication 


SOLUTION 


*TITLE LEX458 
eIQENT /0O1/ 
eENABL LC 


+ 


File LEX4S5&.MAC 


offsrring task 


> “Sh ‘cp Sh “> SP “> “hm TP SP “Se ED SSP SEP WP *E> “OP 


Solution to Module 4, 


This task is spawned bu LEX45A. 
status every 5 secondss then exits after 30 seconds 
(6 emits» then an exitd. 


tried S seconds later. 
this task to exit with an error messase. 


i Enable lower case 


Exercise S - Fart By 


It emits 8 nesative 


If an emit status fails because this task was mot. 
connected to the rarents another emit status will he 
Two comsecutive failures cause 


This tesk must he instelled under task mame LEX45B, 


*MCALL EMST$S sQTOWSC sWTSESC »MRKTSC eEXI THES 


*MCALL TITRERR 


NCONCT? <.ASCIT /LEX4SB NOT CONNECTED TO ANY PARENT/ 


» BYTE Loele 


“ASCII /WILL 
NCNCTL = .~NCNCT 

e EVEN 
; 
START? CLR RO 

CLR Ri 

MOV #tS9R3 
EMST? DEC RZ 

EMI EXIT 

MRKT$C Ly S92 

BCS ERRI 

NEC RO 

EMST$S »RO 

RCS 1% 

CLR RA 

BR WAIT 
L$? CMF $USWy#IE.ITS 


BNE ERR2 


TRY AGAIN 


<> > “> Sb Sh SP “Str D> > ‘Sh SCD 


‘Cr SP AP “EP “EP “E> “GD SP EP 


IN S&S SECONDS/ 


RO = exit status 

Ri = O means last 
attemet to emit status 
suceeded, RO < O means 
it failed because we 
were mot cannected 

R3 = number of emits 
yet to he issued 

Set timer Casaind? 

Noy Just exit . 

Set timer for 3 seconds 


Use status < 0 when 
emitting 

Emit to rarent 

Failed. Why? 

Note success 

Wait for S secs to rass 
Failed because not 
cornmected? 

Any other reasons auit 


Using Directives for Intertask Communication 


SOLUTION 


INTEGER [iSWe TEITS 
ATA TELTS/-8/ 
LOGICALAL ERLAST 


Error mnemonic 

Flas if last EMST 
failed because we were 
not connected 


QATA ERLAST/.FALSE./ 


N10 SO»sT=196 ! Issue & EMSTs 
CALL MARK (1*sS%s2sTSwW> ! Set timer for S seconds 
IF (OSW.LT.O> GOTO 900 
CALL EMST¢(»¢(-I) »tSwW) i Emit to rarent 
IF (OSW.LT.O) GOTO 20 ! Failed, Why? 
ERLAST = FALSE. ! Note success 
GOTO 390 ! Wait for S secs to rass 
IF (OQSW.NE.TEITS) GOTO 910 ! Failed for reason 
! v6©other then not 
! 6 6connmected 
Failed last time too? 
Then sive ur, 
Else note we failed 


IF (CERLAST) GOTO 910 ! 
I 
! 
! this time 
! 
! 


ERLAST = .TRUE. 


And anmmounce the 
rroblem? 
TYFE 25 
FORMAT (’LEX45B NOT CONNECTED TO ANY PARENT’ / 
1 ‘WILL TRY AGAIN IN 3S SECONDS’) 


! And try asain in S secs 
CALL WAITFR(1 TSW) ! Wait for 3 secs to rass 
IF (OSW.LT.0) GOTO 920 
CONTINUE 
CALL EXIT 1 Exit (with success) 


CGC Directive errors 


C 
700 


P10 


920 
1000 


TYFE X»’ERROR ON MRKT. DSW = “TSW 

GOTO 1000 

TYPE ¥»’ERROR EMITTING TO PARENT. [SW = “’» DSW 
GOTO 1000 

TYPE X»’ERROR ON WAITFR. DSW = “» DSW 

CALL EXIT 

END 
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Memory Management Concepts 


TEST /EXERCISE 


Write 'M' if the statement 
it applies to unmapped 
both. 


a. Physical addresses 
16-bit addressing. 


b. Physical addresses 
18-bit addressing. 


Cc. Program relocation 


applies to mapped systems, '‘'U' if 
systems, or 'M,U' if it applies to 


up to 32K words accessible with 
up to 128K words accessible with 


possible without having to program 


or task-build again. 


d. Detection of memory protection violations. 


e. Program executes only at physical addresses that match 
- the virtual addresses created by the task builder. 


f. Virtual address limit of 32K words. 


——_———- 


Fill in the headings and the missing values in Figure 1. 
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Memory Management Concepts 


SOLUTION 


Write 'M' if the statement 
it applies to unmapped 
both. 


U a. Physical addresses 
16-bit addressing. 
words is the limit 
Mapped system.) 


M b. Physical addresses 
- 18-bit addressing. 


M c. Program relocation 


applies to mapped systems, '‘'U' if 
systems, or 'M,U' if it applies to. 


up to 32K words accessible with 
(M is also acceptable since 32K 
of 16-bit addressing even on a 


up to 128K words accessible with 


possible without having to program 


or task-build again. 


-M_d. Detection of memory protection violations. 


Ue. Program executes only at physical addresses that match 
. the virtual addresses created by the task builder. 


M,U f£. Virtual address limit of 32K words. 


Fill in the headings and the missing values in Figure l. 
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Overlaying Techniques 


TEST/EXERCISE 


The following is an output 


MAIN CALLING SUBROUTINE 
G CALLING SUBROUTINE Gl 
Gl RUNNING ; | 
MAIN CALLING SUBROUTINE 
Hl RUNNING 

MAIN CALLING SUBROUTINE 
H CALLING SUBROUTINE Hl 
Hl RUNNING 

H CALLING SUBROUTINE H2 
H2 RUNNING 

MAIN EXITING 


display from a task. 


G 


Hl 


The calling sequence parallels the output display. 


Is 


Draw an overlay tree diagram or a memory allocation diagram 
for a possible overlay structure for the task. 


Write the modules MAIN, G, Gl, H, Hl, and _ H2. Assemble or 


compile each one. 
Task-build and run the 


Task-build and run the 
Obtain a map. 


Task-build and run the 
Obtain a map. | 


task 


task 


task 


without overlays. Obtain a map. 


with all disk-resident overlays. 


with all memory-resident overlays. 
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Overlaying Techniques 


SOLUTION 


The following is an output display from a task. 


MAIN CALLING SUBROUTINE G 
G CALLING SUBROUTINE Gl 
Gl RUNNING 

MAIN CALLING SUBROUTINE Hl 
Hl RUNNING 

MAIN CALLING SUBROUTINE H 
H CALLING SUBROUTINE H1 
Hl RUNNING 

H CALLING SUBROUTINE H2 
H2 RUNNING 

MAIN EXITING 


The calling sequence parallels the output display. 


1. Draw an overlay tree diagram or a memory allocation 
for a possible overlay structure for the task. 


MEMORY ALLOCATION 


OVERLAY TREE DIAGRAM 
| H1 H2 
G H 
MAIN 


TK-7744 
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diagram 


is 


A PWM OM ON & OS We 


Overlaying Techniques 


SOLUTION 


FROGRAM MAIN 


C 
C File LEX6A.FTN 
C 
C Mainline routine for Module 6» Lab Exercises 1-6. 
C Illustrate different overlays and their effects. 
C 
C For each routine, tyre messase then call routine 
C : 
TYPE X»’MAIN CALLING SUBROUTINE G’ 
CALL G 
TYFE Xv’MAIN CALLING SUBROUTINE Hi’ 
CALL Hi 
TYFE Xs» “MAIN CALLING SUBROUTINE H’ 
CALL H 
TYFE xX» “MAIN EXITING’ 
CALL EXIT 
END 
+-TITLE G 
+IQENT /017 
*ENABRL LC) s Enable lower case 
: 
y File LEX6B.MAC 
} 
’ Subroutine for Module 6» Lah Exercises 1-6. 
> Illustrate different overlays and their effects, 
3 
*GLOBL G1 * Subroutine called 
+GLOBL IOFAIL ’ Error routine 
+MCALL QIOWSC 
; 
» Messades 
, 


CGIMS? .ASCIT /G CALLING SUBROUTINE Gi/ 
CGIML = .-CG1IMS 


+EVEN 
; 
> Tyre messase then call routine 
; 
Gi? QLOWSC TO.WVBsSel999e2CGinS»CGIML 40> 
RCS ERROR 
CALL. G1 
RETURN 
ERROR?  JMF IOFAIL 
+ENT 
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10 


te Oi a a 


“a> “> “> “Ge 


“er “S> 


Messa 


> "> “a> 


CHIMS ? 
CHIML = 
CHEMS? 
CH2ML = 


Ture 


TE > <> ‘es 


e232 
€ > 


ERROR} 


Overlaying Techniques 


SOLUTION 


SUBROUTINE G1 


File LEX6C.FTN 


Subroutine for Module 6» Lab Exercises 1-6, 
Illustrate different overlays and their effects. 


Tyre messade then return 


TYFE X»’G1 RUNNING‘ 


RETURN 
ENT 


+ TITLE 
 TTIENT 


+ENARBL 


+GLOBRL 
»GLOBL. 
*MCALL 


eg 


*ASCIT 


+ ~CHIMS 


“ASCIT 


e~CH2MS 


+EVEN 
message 


QTOWSC 
BCS 
CALL 
QTOWSC 
BCS 
CALL 
RETURN 
JMF 
eEND 


lH 
/O1/ 
Lc § Enable lower case 


File LEX6I.MAC 


Subroutine for Module 6% Lab Exercises 1-4. 
Illustrste different overlays and their effects. 


HisH2 § Subroutines called 
IOFAIL > Error routine 
QIOWSC 


7H CALLING SUBROUTINE H1i/ 


7H CALLING SUBROUTINE H2/ 


then call routine 


TO.WVBRySetvy ye CHIMSrsCHIML + 40> 
ERROR 

Hi 

IO.WVBy Series 9c CH2MS»CH2ML » 40> 
ERROR 

H2 


TOFAIL 
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Overlaying Techniques | 


SOLUTION 


SUBROUTINE Hi 


a 


C File LEX6E.FTN 


as 


C Subroutine for Module 6s Lab Exercises 1-6. 

CG Illustrate different overlays and their effects. 
Cc 

C Tere messade then return 


C 
TYFE xXy’HL RUNNING’ 
RETURN 
ENT 
»TITLE H2 
+IQENT /01/7 
*+ENABL LEC > Enable lower case 
; 
» File LEX46F.MAC 
$ 
> Subroutine for Module 6° Lab Exercises 1-4. 
> JTllustrate different overlays and their effects. 


*GLOBL TIOFAIL > Error routine 
*MCALL QIOWSC 


Messages 


“a> “> “> 


H2RUNS «ASCII /H2 RUNNING 
H2RUNL = «-H2RUN 
»EVEN 


y 
+’ Tyre message then return 
j 


Hoe 3 QIOWSC TO.WVBy Sede» ySH2RUNSH2RUNL » 40> 
BCS ERROR 

RETURN 

ERRORS  JMF IOFAIL 
ENT 


SUBROUTINE H2 


C 
C File LEX6F.FTN 
C 
C Subroutine for Module 6» Lab Exercises 1-6. 
C Illustrate different overlays and their effects. 
C 
C Tere message then. returrs 
C 
TYPE X»’H2 RUNNING’ 
RETURN 
ENT 
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Module 


So Nb ver 


OU Ff 
i overla 


QOURH $ 


¥ 

+ LEXGA 
$ LEX6B 
§ LEX6C 
* LEXS60 
y LEX6E 
¢ LEXGF = 
$ Module 
3 

; -ODL Ff 
§ overla 


HSEGS 3 
FLIBS 


LEX6A 
LEX6E 
LEXéC 
LEX62 
LEX6E 


S> “Sr > “Wh Sr ads Sd 


Module 


overla 


“Sr “S> “€> “Sr “MEP 


QOVRH 


LEX6A 
LEX6B 
LEXéC 
LEX6D 
LEXGE 
LEX 46F 


“Sp “BP MP > “ER SS OED OT 


LEX6éF = 


rs 


Overlaying Techniques 


SOLUTION | 


Sy Lab Exercise 4 


ile for bhuildins MACRO-11 with all disk resident 


WS 
»ROOT 
*FCTR 


HoH HOW 


eEND 


éy Lab 


ile for 


ws 

«ROOT 
»FCTR 
+FCTR 


MAIN 
G 
G1 
H 
Hi. 
= HQ 
ENT 


HOW HE il 


ii 


6» Lab 


-OUL file far 


3 


«ROOT 
oF CTR 


= MAIN 
= G 

= G1 

ca 

= HY. 

= H2 


+END 


LEXé6éA-PROGSUBS/LB-*CLEXSB-LEX6C »0VRH) 
LEX60I-(LEX6E 9 LEXGF ) 


Exercise 4 
buildings FORTRAN with all disk-resident 
LEXé6A-FLIB-k CLEX6B-LEX6C~FLIEB»sHSEGS > 


LEXS60-FLIB-CLEX6E-FLIByLEX6F-FLIB) 
LE¢CiviIF4FOTS/LE 


Exercise & 


MACRO-11 with a@11 memory-resident 


LEXSA-FPROGSUBS/LB~xX! C(LEX6B-LEX6C »OVRH) 
LEX60~! (LEX6E sLEX6F ) . 
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Overlaying Techniques 


SOLUTION 


Use the map to fill in the following table: 


Type of Starting Virtual Starting Virtual 
Overlay Address of G Address of Hl 


No Overlays 


All 
Disk-Resident Answers will vary depending on 
Overlays students' particular solution. 


All 
Memory-Resident 
Overlays 


Disk—Resident 
and Memory- 
Resident 
Overlays 


Module 6» Lab Exercise 8 


.O0L file in MACRO-11 to place TOTAL in an overlay 
semen. 
All overlays are disk-resident 

«ROOT MAIN~-XCA~-( JOB» JORXX)» BR» TOTAL) 

»ENT 


“S> td E> te 


ae 


Module 6» Lab Exercise 8 


-OlL file im FORTRAN to flace TOTAL in an overlay 
sedment. 
All overlays are disk-resident 

»ROOT MAIN-FLIB-XCOVURAsE-FLIB:s TOTAL-FLIB> 
OVRAS «FCTR A~FLIB-(JOBI-FLIB:y JORXX-FLIB) 
FLIB? +FCTR LESCLyLIF4FOTS/LE 
»ENT 


“a> “> Sh “> “GP 
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Overlaying Techniques 


SOLUTION 


START? QIOWSC TO.WVBey Selves tMESL»LMES1»40> sWrite MES1 


a 


9 


LOOF ? QTOWSC TO.WVReSoley yeh 


CALL A § Call subroutine A 
CALL RTOTAL § Call routine to ¥¥EX 
§ diselay running 95EX 
s total 2 3EX 
QIOWSC TO-WVUR es Seley vy es MESS» LMES2 40> gWrite MES2 
CALL 1&3 * Call subroutine B 
Set ur for loor 


MOV #£3rR4 ‘Counter 


-OSeLMESS2s40> § Write MESS 


iT ~e> 


CLR ANS ¢* Clear answer in case 
y of no oreration 
CALL. A § Call subroutine A 
CALL RTOTAL. § Call routine to 9 9EX 
> diselay runnins 99 EX 
> totel #eEX 
SOR R49l.O0F + Decrement counter and 
> loor back until done 
QIOWSC TO.WUBRsSoly oye tMES4sLMES4»40> § Write MES4 


CALL TOTAL % Call routine to 
’ disrelay grand total 
QTOWSC FTO-WVUBsSelovy es tMESSyLMESS 2402 §¢ Write MESS 
EXITS y Exit 
*+END START 
FROGRAM MAIN 
FILE LEX&6&9A.F TN ''EX 


Modified to call RTOTAL to disrlay the running PhlEX 
after each call to A PlEX 


This Frogram frrints 8 messasge and then calls subroutine 
A. Subroutine A asks whether to rerform Job 1 or Job 2.F 
It then calls either subroutine JOR or JOB2 which 
rerforms the oreration and disrelays the results. MAIN 
then calls subroutine EB which disrlays a messasde. MAIN 
then calls subroutine A 3 more timess keerinsg a srand 
total of the orerations. Finally» it disrelays the 

grand total and exits. 


Task-build instructions’ Use LEX69A.00L as the ineut! ll EX 


file for RTOTAL in the root. Use LEX69R.00L as the PlEX 
imeut file for RTOTAL in the best overlay segment bIEX 
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Overlaying Techniques 


SOLUTION 


»>TITLE RTOTAL 
~ITQENT /01/7 
+ENABL LC 3 
; 
s FILE LEX69R.MAC 
; 
+ Subroutine to rrint the runnmins 
5 
*MCALL QTOWSS ; 
*+NLIST BEX ; 
5 
RTOFMT? .ASCIZ /THE TOTAL SO FAR 
RTOTEBF? .BLKEB 100. 3 
+EVEN 
»#NLIST BEX 3 
RTOTAL? MOV #RTOTRF es RO } 
MOV #ERTOFMT + RI ; 
MOV #70T Re ; 
CALL $E0MSG 3 
QIOWSS #I10,WVUB eo #5 etl vey 
} 
RETURN 
»ENT 
SUBROUTINE RTOTAL 
Cc 
C FILE LEX469R.F1TN 
c 
C Subroutine to frint the running 
C 
COMMON /TOTCOM/TOT 
INTEGER TQT 
TYPE S»TQT 
5 FORMAT(C’ THE TOTAL SO FAR 
RETURN 
ENT! 
Module 6% Lah Exercise 9 


Enable lower case 


total 


External system macros 

Ilo not list hinary 
extensions 

IS “420.7 +Format 

Outeut buffer 


string 


List binary extensions 


Set ur for $E0IMSG 


Edit messase 


S#RTOTBF e RL» #402 


Frint it 


total 


IS» 


I49°%.7%) 


-O0b file im MACRO-11» lacing RTOTAL an the root 
sedment for testing . 
AL] averlays sre memory-resident 


LEX69A 
LEX69R 


+ROO 
= MM 
a ft 


e ENT 


T 
AIN modified 
TOTAL 
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LEX&9A-LEX469B-k 1 CA! CJOBL»s JOBXX) vy Bs TOTAL? 
to eall RTOTAL 


Static Regions 


TEST /EXERCISE 


Create an initialized resident common (size: 32(18) blocks = 
1924(18) words, contents: 25(18) in each word). Check with 
your course administrator to find out where to place the 
common type partition. Write two tasks, one that modifies all 
values in the common, and one that reads the values’ and 
displays them. 


Create a resident library using the supplied FORTRAN callable 
subroutines AADD, SUBB, MULL and DIVV (all in LIB.MAC). Write 


a task that calls one or more of the routines. For example, 
write a task that asks for four numbers (A, B, C, and D) and 
then computes and displays (A * B) + (C * D) = answer. 
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Static Regions 


SOLUTION 


eTITLE LEXZLA 

+ITHENT /0O17 

eENABL LC y Enable lower case 
File LEX71A.MAC 


Frogram which creates and initializes 3 common resion 
which will be referenced using overlaid Psects. 


Sive 1024. wordss contents all 25’%s 

Task-build instructions? Must include /SHAREABLE : COMMON 
and /NOHEATER switches: STACK=0 and PAR=COMWFE ortions, 
Must create .STEKE file. May be /CONEIFIC or absolute 
(default), 


The code is elaced in a Fsect mamed MYDATA 


sFSECT MYDATA DyGBLyOVR ¢ Defaults REL» RW 


»REPT 1024. § Rereat count 
~WORT Qe § Word of 25¢10) 
+ENDR ' End rereat ranse 
«ENT 


BLOCK DATA LEX71A 
File LEX71A.FTN 
Frosgram to create and initialize 8 resident common 
Size is 1024 words» initialized with all 25’s 
Task~-build instructions’: Must include /SHAREABLE? COMMON 
and /NOHEANER switches s STACK=0 and PAR=COMWF ortions. 
Must create .STB file. May be /CODE?FIC or absolute 
(the default). OTS library NOT reauired. 

COMMON /MYDIATA/ 161024) 


VATA I /1024k25/ 
ENI 
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Static Regions 


SOLUTION 


ERRORI? MOVE TOSK»kO y¥ Extend sigm om T/0 
MOV — ROYARG ¢ status and elace in 
y are block 
MOV FF ERR? 9 RA § Addr of format strirnst 
SETUF? MOV #HRUFF »y RO § Addr of outreut puffer 
MOV FARG ss R2 + Addr of arstument block 
CALL. $E MSG ¢ Edit messese 
QTOWSS #£LIO.WVRe #eSe hl yyy y SHERURFF yo Re #402 § Write 
+ Messacde 
EXITéS ¢ Exit 
eENT START 


NaN NOOmanarnanmn 


10 


PROGRAM LEX71B 
File LEX71iB.FIN 


Task to decrement each word in the static common 
resiom LEX71A. It uses ea COMMON to reference 
the date. 


Task-build instructions? 


LINK/MAP/OP TION LEX7IBsyL BIC Ls LIFOROTS/LIBRARY 
Oetion? RESCOM=LEX71A/RW 
Ortion? <RET > 


COMMON /MYDATA/ £61024)! Common to reference 
! shared resion 

Decrement values 

ng S KR=1s1024 

L¢K EL OR 4d 

CONTINUE 

WRITE (€5%10) ! Tlisrlay done message 

FORMAT (’ LEX71B HAS MODIFIED THE VALUES IN THE 

1 COMMON LEX7I1A%) 

CALL EXIT 

END 
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ud 
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38 
uy 
50 
él 
62 
63 
64 
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Static Regions 


SOLUTION 


Error code 

RORS MOV $0SW» ARG 
MOV $F ERR Le RI 
BR SETUF 

RORL? MOVE TOSKy RO 
MOV RO» ARG 


Move [SW to ars block 
Addr of format strings 
BRranch to $E0MSG code 
Extend sigm om 7/0 
Status and rlaece in 
ars block 
Addr of format strings 
Addr of outeut buffer 
Addr of arsument block 
Eqit messase 
“BUFF oy Ry #40> 3 Write 
message 
Exit 


MOV FFERR2 ¢ RA 
TURF? MOV FRUFF RO 
MOV #ARGYR2 
CALL. $EUMSG 
QLOWSS #FIOWVR ye Sy 1» vy 


ah “E> “SS [Re “E> Me > SP “E> GP “Pm Sd “SP 


EXITSS 
«ENT START 


FROGRAM LEX71C 
File LEX71C.FTN 


Task to read data from the static common resion LEX71A 
and erint it out at TIt. It uses a COMMON to refererice 
the data. 


Task-build instructions? 
LINK/MAF/OPTION LEXZIC»sLBtCislIFOROTS/LIBRARY 
Oetion? RESCOM=LEX71LA/RO 


Ortion? <RETS 


COMMON /MYDIATAZ L.¢61024)! Common to reference 
! shared resdion 


C Looe throush to diselay regions 8 numbers on a line 


no SO J = 1¥1024+98 

WRITE (Sy10) (LORD sK=JyJ4+7) !§ Write values 
FORMAT (4% ’»9I2»97T8) 

CONTINUE 

CALL EXIT 

ENIt 
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Static Regions 


SOLUTION 
AINARG? .~WORD 3 »’ For Ag 
»WORD MURES1 + First MUL result 
»~WORT MULRES § Second result 
»WORT GRTOT > Grand total 


ASCII buffer table. Initially each entry in this table 
consists of the arcidress of 3a Fromrt string followed by 
the address of the buffer to store the inrut. After 2 
string is inreuty howevers the rromet strings address is 
rerlaced by the length of the inreut string. This 
table, with the addition of the final value GRTOTs then 
; serves as the $EIMSG argument block. 
EDMARG$ . 
ABTEL 3 WORT AF RMT »ASCA 
WORT BF RMT» ASCE 
CUTBL? «WORD CFERMT»ASCC 
WORT DERMT»ASCH 


> Srp “> “Mr SP > WP 


GRTOT? «WORT § Grand total (numeric 
; § Value 16 inserted 
+ directly into $E0MSG 
§ block) 
¥ 
¢ Other mumeric values 
M13 + WORT ’ First MUL argument 
M23 »WORT + Second MUL arsument 
MURESL? .WORD ¢ First MUL result 
MULRES? WORT + MUL result 


ROFRMT? QIOWs IO.RFRySvytvvTOSKy vty 7ey ye PLENy % $> 
IOSE; « BLAW 2 


Code 


cs> “> “> 


33 


START? QIOWSC TO.WVBsSedeyeeycHIRMSsHORML 40> » Identify 


MOV #MieRS + RS => location to store 
5 binary ineut values 
MOV #RTIERMT » RA > R4 => “read with 
> Fromet" DPR 
MOV #ABTBL 9 RS ¢ RZ == ASCII buffer table 
CALL GETINE + Get A 
CALL. GETINF + Get & 
MOV #MULARG»RS y RG => MUL ars hlock 
CALL. MULL. ' flo first multiely 
MOV MULRES »MURES1 + Save result 
MOV ¥#M1i°RS > Reset resisters 
MOV #ROFRMT » RA ; (FORTRAN calling 
MOV ¥CUTBL » RS § convention does not 
> sguarantee they are 
+ Preserved.) 
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Static Regions 


SOLUTION 


FROGRAM LEX72 


Ct 
© File LEX72.FTN 
G 


Solution to Module 7s Lab Exercise 2 


roOULTMNeES + 


Tesk thuild instructions? 


Oetion? RESLIB=LIB/RO 


CUOOd Ce TEP oy os 


INTEGER AvyB»yCyDyMURESI »>MURES2sGRTOT 


Task comrutes sum of rroducts using resident library 


LINS/MAP/OF TIONS LEX72,LB3Civsl1IFAFOTS/LIE 


C ASCII bytes to make erometinsg code cleaner 
RYTE ASCAsASCERsASCC*s ASCE 
TATA ASCAsASCBYASCE sASCIS ‘A’ + °R? 9 “C4 9 SENS 
C 
TYFE 3&3 
3 FORMAT ¢€% TASK WILL COMPUTE (AKB)+(CkDI) 77 
1 ’ ENTER NUMBERS IN DECIMAL. %> 
C FORMAT statements used rereatedly helow? 
15 FORMAT (°$ENTER “’vAle%3 7) 
20 FORMAT (16) 


Fromet for 
and ineut A 
Fromet for 


TYFE 15%ASCA j 
ACCEPT 25%A ! 
TYPE 15*ASCE ! 
ACCEFT 255 ! oo and inrut &B 
CALL MULL (CArsB»sMURESI > ! MURES1 = AXE 
TYFE 15°ASCC ! Fromet for 
ACCEFT 25°C to and inreut C 
TYFE 1i5*/ASCH ! Fromet for 
ACCEPT 25+0 fool and ainrut 0 
CALL MULL (CsItyMURES2) ! MURES2? = Ch 
CALL AALICMURES1 »MURES2»GRTOT) ! GRTO 
TYPE 35 AvBy Ceo TyGRTOT 
35 FORMAT ¢¢% C’9I69% K ’y¥TGe’)d + OC’ 9 The 7% 
CALL EXIT 
END 
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Dynamic Regions 
TEST/EXERCISE 


Referring to Exercise 1 of Module 7 (Static Regions), modify 
the tasks that reference the common so that they both map to 
the common dynamically using the memory management directives. 


Write a task that creates a dynamic region two blocks’ long, 
Fills it with a character typed in at the terminal, and leaves 
it in existence on exit. Write a second task that modifies 
one value in the region, then displays all the values in the 
region at the terminal, and finally deletes the region. 


Modify SNDREF so that it sends the region by reference to a 
second receiver task, in addition to RCVREF. Write the second 
receiver task, which should modify values in the region and 
then display the values in the region at the terminal. 
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Dynamic Regions 
SOLUTION 


*+TITLE CLEX8iB 
eIQENT /0O17 
+ENABL LC ’ Enable lower case 


+ 


File LEX81B.MAC 
LEX7Z1IB modified to use memory manesement directives 


Frogram to attach to the existing region LEX71A,» create 
a virtual address window (marred om creation)» decrement 
allo values. in the region by il» detach from the resion 
and exit. 


Assemble and task-huild instructions? 


*MACRO/LIST LBtC1s17FROGMACS/LIBRARY »deviCufd ILEX81E 
SLINK/MAF/OPTION LEX81BeLBiCl»s1IPROGSUBS/LIBRARY 
>Oretion? WNIWS=1 - : 
SOrtion? <RET> 


3 
1 


“Er “GP Gr “Sh ‘Gr “Eh “SP “IP Sh GD “E> SP “EP “E> “EP “E> SS 


*MCALL EXITS$S»ROUBBKS»WORBKS»ATRGSC § Sustem 


*MCALL CRAWS°DTRG$S oe DIRS sQITOWSS y macros 
*MCALIL TTRERRy IOERR y Surelied macros 
ROB? ROUBBKS 32. 9LEX7LAyLEX71As<RS WRTIRS. REDS 
Define resdion with? 
Size = 32. (32. word blocks) 
Name = LEX71A 
Fartition = LEX71A 


Attach with read and write access 


CRAWS WIE s0FKR for create address window 


IN? 
DE: . WOBEK&S 7y32.9090232.92WS. MAF IWS RED! WS. WRT 
Tefine window with? 
APR = 7 
Size = 32, (32. word blocks) 


Offset in resion = 0 (32. word blocks) 
Lensth im region = 32, (32. word blocks) 
Mar om create with read and write access 


= ft “er *€> “er cm “Se “a> “Er = = > “Sh “GP E> “BP “SD 


OSE? + BLKW 2 § I/0 status block 
=1024, ¢ # of words in region 
NONE 3 *ASCII /LEX81B HAS MODIFIED THE VALUES/ ¢ Tone 
“ASCII 7 IN LEX71AZ ; mMmessase 
LONE =,~DTONE 
START: ATRG$C RIE y Attach to resion 
RCS © ERR1 y Check for error 
MOV ROBR+R.GIDyWUBtW.NRID ¢ Move resion If 
| y into WIR 
DIRS #WIN + Create window 
RCS ERR2 s Check for error 
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Dynamic Regions 


SOLUTION 

C WOR = Window definition block with the followings rrorerties? 
C AFR 7 
C Size 32 (410) (32.-word blocks) 
C Offset im region O (32.-word blocks) ; 
C Length of window 32 €10) (32.-word blocks) 
C Mar on create with read and write access 
C Initialize the WOR 

DATA WDB 4" 3400909329090 9 32% "203 %0/ 
c 
C Attach resion 


CALL ATRG (CRIMB: TOS) 
C Check for error on attach 
IF ¢(f0S .LT. 0) GOTO 100 
C Move resion id to WIR 
WOR C4)=ROBRC1 > 
C Create and mar window 
CALL CRAW CWB, TDS) 
C Check for error 
IF (IS .LT. 02 GOTO 200 
C Yecrement values 
no SO K=1%s1024 
ITATACK) =IDTATACKI-1 
30 CONTINUE 
C Yetach from region and delete it 
CALL OTRG (ROR, TOS) 
C Check for error 
IF (10S .LT. 0) GOTO 300 
C And Jjume to exit 
WRITE (5%60) 


60 FORMAT (¢(’ LEX81B HAS MONIFIED THE VALUES IN 
1 THE COMMON LEX71A‘) 
GOTO Soo 
Cc 
c Error messases 
100 WRITE (S»v101)> Ins 
101 FORMAT ¢¢’ ERROR ATTACHING TO REGIONy [ISW =’ ¥I4) 
GOTO 300 
200 WRITE (S»201) IDS 
201 FORMAT (¢’ ERROR IN CREATING WINTIOWs DSW =’ 914) 
GOTO 300 
300 WRITE (S301) TOS 
3O1 FORMAT (’ ERROR DETACHING FROM REGION: [ISW =’ »I4) 
C 
SOO CALL EXIT 
ENT 
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Dynamic Regions 


SOLUTION 
RCS ERR2 ¢ Check for error 
MOV #1460000+R2 s Set base addr in resion 
MOV #NyRS § Loor count 
LOOF 3 MOV #BUFF yRO + Set ur for $ELMSG6 
MOV #FMToR1L 
CALL. $E0MSG y Edit data 


QIOWSS #10.WVRy t57¢17 #1 OSB» » RUFF 9 RI» €40> 


+ Write date 

BCS ERRSK + Check for dir error 
TSTE IOSE § Check for I/0 error 
BLT ERR3I * Branch on error 

SOR RS» LOOF ’ Print the line 

TONE 3 NTRG$S #ROKB + Detach from resion 

BCS ERR4 s Check for error 
EXITS 


Error handling code 


ERR $ QIRERR <ERROR ATTACHING TO REGION> 

ERR2 3 DNIRERR =<ERROR CREATING WINDOW ANDI MAPFING> 
ERRSOS DITRERR <ERROR WRITING DATA> 

ERR3I? ITOERR #TOSBs<ERROR WRITING DATA> 

ERR4 QIRERR =<ERROR DETACHING FROM REGION: 


c 
us 


CFO C22 0 Ceo 


oE-NIt START 


PROGRAM LEXS1C 
File LEX81C0.FTN 
LEX71C modified to use memory management directives 


Frogram to attach resion LEX71A in eartition LEX7Z1A 
create a window and mar it to the region uronm creatiory 
read data out of the resions and detach from it 


Yask-build with these ortions? 
VSECT=ATA? 1600007 20000 
WNOWS = 1 


INTEGER RINBC8)»WOBCS8) 
This common block will slisgm with the address window 
COMMON /TDATA/IDATAC1IO24) 
ROB = Resion definition block with the following 
rrorerties? 


Size 32 €10) (32.-word blocks) 

Name LEX71A 

Fartition LEX71A 

Frotection WO?nonersSY? RWED,OWF RWEDyGRIRWEN 


Attach with read access 

Initislize the RIK 
TATA ROB /O0¥3293RLEXr3R71Ar3RLEX*s3R71Axr “OO0001 » 
1"170000/7 
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Dynamic Regions 


SOLUTION 


»-TITLE LEX82A 
~INENT /01/7 
*ENABL LC ¢ Enable lower case 


Frogram to 
creation)» 
creation) s 
the region 


Task-build 


“> “S> “Gh “GrP “Er “rp “EP “EP > “SDP “Sr ED 


File LEX82A.MAC 


create an named region Cattached on 

create @ virtual address window (marred on 
Flace ASCII data in to regions detach from 
and exity leaving the region in existence, 


instructions: 


Include WNOWS=1 ortionm 


sMCALL EXIT&#S»ROUBBKS$ »WOBBKS$ » CRRGS$»CRAWS © 
*MCALL DTRGS*/DIR$»QTOWSS »QTOWSC 


REG? CRRGS ROE s0FR for create region 

; Tiefine restionm with? 

; Size = 2 (32. word blocks) 
; Name = MYREG 

; Fartition = GEN 

; Frotection = WO?NonersSYtRWETL 

; OWS RWEDyGRIRWEL 

; Ilo mot mark for delete on last detach 
; Attach with write and delete access 
RIB? ROBBKS 2»yMYREG»yGENe<RS.NOLIRS DELIRS.WRT'IRS.ATT 
y 

WIN? CRAWS WOR + DFR for create address window 
3 lefine window with? 

3 AFR = 7 

3 Size = 2 (32. word blocks) 
3 Offset im region = 0 (32. word blocks) 
3 Lensth in region = 2 (32. word blocks) 
5 Mar on create with write access 

WOE? WOREKS Z7r29OrO0x292WS. MAP IWS. WRT? 

x 

DET? DTRGS$ ROE > DFR for detaching resion 
IOSE?: »BLAKW < ¢ I/O status block * 
BUFF 3 +RLKE 80, y Ineut/Outeut buffer 

MES? *ASCII /ENTER ASCII CHARACTER: 7 

LEN in o~ MES 


UNMES 3 ~ASCII “152/LEX82A HAS CREATED ANT INITIALIZED 
*ASCII / THE REGION 

LOUNMES =.-TINMES 

* Error format strings 


FCRRER? »-ASCIZ /ERROR CREATING REGION. DSW = 4.7 
FCRWERS .,ASCIZ /ERROR CREATING WINDOW, USW = “D./ 


FOUETERS +sASCIZ /ERROR DETACHING FROM REGION. DSW = “40.7 
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Dynamic Regions 


SOLUTION 


MOV #FQI2TE RL ’ 
BR SHOERR 9 
ERRS 3 MOV ¥FNETERY RL 3 
SHOERR? MOV FRUFF RO 3 
MOV #EElSWeR2 ’ 
CALL. $ELMSG , 
QIOWSS #IOWVR ry tS etl veo y 
y 
EXITS 3 
eENTI START 


PIII GIA AOI or aoiaanar ni anraaanaiankanana 


IaH 


FROGRAM LEX82A 


File LEX82A.FTN 


LEX82A creates a named region 
creates @ virtual address window (marred on 
an ASCII character inreut at .Ti? 
detaches from 
existence. 


rFlaces 
im the resiony 
leaving the resion in 


Task-build instructions? 


SLINK/MAP/OFPTIONS/CODESFPF LEX82AyxL Bi UL, LIFOROTS— 


~>/LIBRARY 


(attached on 


the resion 


QIO write err message 
BKramch to common code 
letach restion message 


Set ur for $E0DMSG 


Edit message 


“BUFF yo Ri» €40> 


Tisrelay messaede 
Exit 


creation? » 
creation)» 
at 
and exitsy 


Oetion? VSECT=DATAS 14600003 20000 


Ortion? WNOWS=1 
Ortion? <RET 


ROKR = Resion Lefinition Block for resionm with the 
following fFrorerties? 

Size = 2 (32. word blocks) 

Name = MYREG 

Fartition = GEN 

Frotection = WOtNoneySYSRWED 


lo mot mark for 


OWS RWEDY GR? RWED 


delete on 


last detach 


Attach with write and delete access 


WOR = Window Tefinition Block 
following rrorerties? 
AFR = 7 
Size =z 2 (32, 
Offset in restion = 0 (32, 
Length in region = 2 (32, 
Mar on create with 
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for window with 


the 


word blocks) 


word blocks) 
word blocks) 


write access 


all locations 


We Bee 


R 
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Dynamic Regions 


SOLUTION 


»TITLE LEX&2R 
*IQENT /01/ | 
*ENABL. LC i Enable lower case 


File LEX82B.MAC 


Frogram to attach to an existing redionsy create a 
Virtual address window (marred on creationds modify 
the first buete of the resions read ASCIT data from the 
regions detach from the region and mark it for deletes 
and finally exit. The region will be deleted on last 
detach. 


Assemble and task-build instructions? 


“MACRO/LIST LEi Cis LIFROGMACS/LIBRARY y devi lufdd- 
~OLEXB2E 
SLINK/MAF /OF TION LEX82ByL BIC Ls LIFROGSUBS/LIBRARY 
“Ortion? WNUWS= 1 

“Oretion? <RET> 


H 


*MCALL EXIT#S es ROUBBRSeWIBBRSrsATRGSC ¥ Sustem 
»MCALL CRAWS se DTRGO$S es OIR$ ys QLOWES y Maecras 
*¢MCALL DLRERR»s TOERR > Surrlied macros 
ROBBKS OvMYREGsGENs<RS-.WRTIRS. REDIERS. MOL ERS . TELS 
Vefine region with: 

Size = 0 €32. word blocks) 

. a returned after attach 

Name oo MYREG 

Partitian = GEN 

Mark for delete on last detach 

Attach with ready write and delete eccess 


CRAWS WB sUFE for create address window 
WORBKS 7y2O0090209022WS. MAP IWS. REDIWS WRT? 
Tefine window with? 
AFR 7 
Size = 200 (32. word blocks) 
Offset im redion = O (32. word blocks) 
Length in resion = 0 (32. word blocks) 
returned when marred 
Mar on create with read and write eceess 


mR 
mz 
oe 2% 


ii 


2 


y 
IOSK? +BRLKW 2 y I/O status block 


Region S126 im butes 

Attach to resion 

BCS ERR Check for error 

MOV ROUGHER GiUeWOBt+W.NREID § Move resion If 
> into WIE 

LIRG #WIN ¢ Create window 


SIZ =128, 


“Sr “Sr ‘GP 


185 


ta | 
Le 


PCP Oe Oe ey OE Fac} 


C 


C 
10 
li 
C 
C 


C 


Dynamic Regions 


SOLUTION 


INTEGER ROBC8) »WORCS) 
BYTE IQATACL28) 


This common block will align with the address window 


COMMON /DATA/TIDATA 
ROB = Region definition tlack with the followings 
FPoOrerbies? 


Size 0 (32.-word blocks) 
filled in when attached 
Name MYREG 
Partition GEN 
Protection WOtmonersSYIRWENs OWS RWE Ds GRIRWED 


Mark for delete on last detach 
Attach with deletes write and read access 
Initielize the RIDE 


DATA RIR /OvsOr3RMYRe SREG » SRGENy SR r"QO0O021 3% 


1*170000/ 


WOR = Window definition block with the followins 
Frorerties! | 


APR ? 
Size 200(8) (32.-word blocks) 


Offset in resion O (32.-word blocks) 
Lensth of window O (32,-word blocks) 
filled in when marred 
Maer on create with read access , 
Initialize the WIB 
DATA WEB /"3400%0% "2001020908 "203207. 


Attach resion 
CALL ATRG CROBs TDS) 


> Cheek for error om attach 


IF (IS .LT. 0) GOTO 100 
Move resion id to WIE 

WOR C4) =ROBRCL) 
Create and mar window 

CALL CRAW (CWDB» IDS) 
Check for error 

IF (10S .LT. 0) GOTO 200 
Flace ASCII Z in first hyte 

IMNATACL)#°Z? 
Frint contents of resion 

WRITE (S»vitd IDATA 

FORMAT ¢€% ‘»464A1) 
Netach from region and delete it 

CALL DTRG (RONBRy TOS) 
Check for error 

IF (105 .LT. 09 GOTO 300 
And Jume to exit 

GOTO Soo 
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Dynamic Regions 


SOLUTION 


~TITLE SNDIIREF 
+LQENT /017 
*ENABL LC s Enable lower case 


File LEX83A.MAC ¥9EX 


Modifi 
additi 


LEX83A 
fills 

region 
the re 
ther 
Lame 
attach 


Agssembh 


Instal 
LEX83RB 
then r 


Yefine 


RFERO 
RSTAT 


ROR? 


ed to send to a 2nd receiver RCVRF2 in 3 
on to RCOVREF ; 


creates a 64-word (2 block) unnamed resion 
it with ASCII characters. It then sends the 
to RCVREFs and then waits for RCVREF to re 
sion. (This is sigmalled by event flast #1.) 
rints a message and exits. Since the area i 
dy it is automatically deleted when the las 
ad task exits. 


le and task-build instructions? 


=SMACRO/LIST LEI CLs LIFROGMACS/LIBRARY »devitu 
~SLEXS3A . 

SLINK/MAP/OPTION LEX83AsL Bi Cts LIFROGSUBS/LT 
Qetion? WNOWS=1 


lL and run instructions! RCVREF must be inst 
must be ianstelled as RCVRF?. Rum LEX83A fi 
unm ROYVREF and RCVRE2? Ceither one first) 


eMCALL QLOWSC ys QTOWSS*RASTSC § System macro 
*MCALL WTSESCesEXIT#SsROBBKS »sWORBKS 

*+MCALL CRRGOSS s+ CRAWSS » SREF C0 

*MCALL OTRERR § Surrlied macro 
eNLIST BEX. > SUPFRESS TNATA 


resgiom with? 


Size 2 32-WORD BLOCKS 
Name none 


GEN 
WOsSnonersGRIRWED 
OWI RWEDy SY inane 


Fartition 
Frotection 


HoH OH 


Attach on create 

Read and write access desired on attach 
= 170017 

= RS.ATTIRG.REDIRS. WRT 


RIBEKS 29 GEN RSTAT® RERO 
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Dynamic Regions 


SOLUTION 


QTOWSC TO.WVRsSy2e 99 98MES2reLMES2 40> ¢ Disrelay 

5 Messadce 
RCS és § Branch on dir error 
EXIT#S y Exit 


y Error code 

183 QIRERR “<ERROR ON CREATE OR ATTACH REGION: 

2hi QIRERR <ERROR ON CREATE OR MAF WINTOQW: 

3Hh3 QIRERR <ERROR ON SEND) BY REFERENCE> 

AG 3 QIRERR <ERROR ON IST WRITE 

Ea QIRERR <ERRORK ON WAIT FOR? 

&$3 QIRERR <ERROR ON 2NTt WRITE> 

7 $3 VIRERR <ERROR ON 2N0) SEND BY REFERENCE? 55 EX 
She DIRERR <ERROR ON 2Nt WAIT FOR: ¥FEX 


OA AAI OAIAGAKAKAIOIAAGAAIAIAIAAriaiaanrnrriaannnIraana 


-ENT! START 


PROGRAM SNIIREF . 
File LEX83A.FTN 


Modified to send the region by reference to RCVRF2 !!'EX 
in addition to RCVREF HlEX 


This Frogram creates a 64~-word unnamed resion and 
fills it with ASCII cheracters. It then sends it by 
reference to task RCVREFs and waits for RCVREF to 
receive the resgion.(This is sidnalled bs event fleas 
#1.) SNODREF then erints @ messase and exits. Since 
the area is unmamedsy it is sutomatically deleted when 
the last attached task exits, 


Task-build instructions? 


SLINK/MAP/CODES FFFE/OP TIONS LEX83ArL Bit Ci»tIFO-!!EX 
~sROTS/LIBRARY PtEX 
Ortion? WNOWS=1 

Qetion? VSECT=DATA?T1600002 200 

Oetion? “RET 


Install and run instructions? RCVREF must be installed. 
LEX83B must be installed under the name RCVRF2. 1tEX 
Rum LEX83A first, then rum RCOVREF and RCVRF2 Cin !!EX 
either order) 


ROB = Restion definition block with the following 
Frorerties? : 
Size 2 32-word blocks 


Name none 

Fartition GEN 

Frotection WOtnone sSYSRWEDsOWPRWEL » 
GRinone 


Attach on creation 
Read and write access desired on attach 
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Dynamic Regions 


SOLUTION 


C Error handlins code 


100 WRITE (S¥110)I0S 
110 FORMAT (€° ERROR CREATING REGION: DSW = ’»T4) 
GOTO 600 
2OO WRITE (Se210)0I08 
210 FORMAT ¢€”’ ERROR CREATING WINTOWs DOSW = ’,14) 
GOTO 600 
400 WRITE (5410705 
410 FORMAT ¢’ ERROR IN SEND-BY-REFERENCE,s DSW = ’»14) 
GOTO 600 
450 WRITE (5»460)708S 
440 FORMAT ¢€¢’ ERROR IN 2ND SEND-BY-REFERENCEs DSW 
1 = ‘’,»T4) rtEX 
GOTO 600 Il'EX 
500 WRITE (S»510)1I0S 
S10 FORMAT ¢*% ERROR ON WAIT,s DSW = ’sI4) 
GOTO 600 flEX 
S50 WRITE (5%5460)0T0S blEX 
3460 FORMAT ¢’ ERROR ON 2NIt WATT» DSW = ’»T4) 1'EX 
C 
600 CALL EXIT 
ENIt 


»TITLE LEX83B 
~INENT /01/ 
*ENABL LC > Enable lower case 


File LEX83B.MAC 


Second reciever for SNIIREF (modifed to LEX83A),. 
Frogram to receive-by-reference (marred on creation) » 
modify the first dats bute in the resiors 

read ASCII data from the resionsy detach from the 
resion and exit. The resion will he deleted on last 
detach. 


The first word im the resion contains the count of the 
number of bytes of dats in the resion. 


Assemble and task build instructions? 


“MACRO/LIST LEI C1,sLIFROGMACS/LIBRARY, devi lCufdd 
~SLEXS3B 

LINK/MAF/OPTIONS LEX83BeL Bi Cis lIFROGSUBS/LIBRARY 
ortion? WNOWS=1 


“Sr Wr “Er Sh KP So HP NEP Sh “BP “rp “erp “He “ah “EP CP GP C> SP 
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Dynamic Regions 


SOLUTION 


PROGRAM LEX83B 
File LEX83BeFTN 


LEX83R receives by reference a resdion from the task 


> LEXS3A. It mars to the resdions modifies the first 


butey Frints out the contents» anc exits. The resion 
is deleted on last detach. 


> Task-tbuild instructions? Include these ortions 


WNNWS=1 
VSECT=DATA? 14600003 20000 


> Install and run instructions? LEX83B must be installed. 
C as RCOVRFS. RCVREF must be installed. Run LEX83A first, 
then rum LEX83B& and RCVREF Cin either order), 


. WOR = Window definition block with? 


AFR 7 
Size 200(8) 32-word blocks 


Allow for full AFR 
Offset in resion O 32-word blocks 
Length of resion O 32-word blocks (to be filled 
im om receive) 
Read anc write access» 
INTEGER WhERCS) 
TATA WhE/S "3400709 "270909 "Or *3x0/ 
BYTE TATACL28) 
This common block will align with the address window 
COMMON /DATA/TIATA 


> Create address window--do mot mar et this time 
CALL CRAWCWIIBs TS) 

Check for error om create 
IF (inS .LT. 0)? GOTO 200 


> Now set WOR status for marring--will be done by 


receive-hy-reference 

WOER(7)=WOBRC 74+" 200 
Receive data and mar 

CALL RREF (WOR: » TGS) 
Check for error 

IF (IOS .LT. 0) GOTO 100 


> Modify first value 


DATACL #49" 
> Calculate number of bytes of data ~ length in blocks 
returned at WIRC4) . 
NCHAR = 64XWDRC6) 
WRITE(Sy»10) (QATACI) »I=1»NCHAR) 
FORMAT (€% ‘’»64A1) 


C Go exit 


GOTO 300 
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File 1/O 


TEST/EXERCISE 


Next to each activity, write O for open, I for I/O operation, 
or C for close, to identify which step of file I/O is 
involved. 


a. Records are read from the file. 

b. Access rights to the file are checked. 

c. Existing file is located on disk. 

d. Internal buffers are placed in a pool for re-use. 
e. Records are written to a file. 


Describe three functions performed by the Files-ll ancillary 
control processor (FI1ACP) when ae task creates a new file 
containing seven blocks. 
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File 1/0 


TEST /EXERCISE 


A company has a file of customer’ records. Each record 
contains the company name, the address, the contact 
person, and the equipment bought. At different times, the 
records are accessed using company name, city, or contact 
person. 


A company uses COBOL for its applications. It has a. 
payroll file which is processed in order every two weeks. 
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File 1/O 
SOLUTION 


Next to each activity, write O for open, I for I/O operation, 
or C for close, to identify which step of file I/O is 
involved. 

a. Records are read from the file. 


b. Access rights to the file are checked. 


_ 

BES 

_O c. Existing file is located on disk. 

_C_ d. Internal buffers are placed in a pool for re-use. 
_f  e. Records are written to a file. 


Describe three functions performed by the Files-1l ancillary 
control processor (FI11ACP) when ae task creates a new file 
containing seven blocks. 


Any three of the following: 


Allocate a file header 
Initialize the file header 

Set up file retrieval pointers 
Create a directory entry 
Allocate blocks to the file 


Connect a task's LUN to the file 
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File 1/O 


SOLUTION 


A company has a file of customer’ records. Each record 
contains the company name, the address, the contact 
person, and the equipment bought. At different times, the 
records are accessed using company name, city, or contact 
person. 


Best answer is RMS only since an indexed file with 
multiple keys is needed for fastest access. FCS can be 
used, but access by key value is impossible. You would 
have to step through the file, checking all records, to 
locate the one you want. 


A company uses COBOL for its applications. It has a 
payroll file which is processed in order every two weeks. 


RMS only; COBOL is supported under RMS, but not’ under 
FCS. 
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File Control Services 
TEST/EXERCISE 


Modify CRESEQ so that each record in the file contains’ the 
text input from the terminal preceded by "AAAA", 


Write a task that appends records to a file you have created 
(using one of the FCS example programs or the editor). 


In MACRO-1l, modify the task CREFXA so that input from the 
terminal uses FCS routines instead of QIO directives. 


Write a task that requests input from a terminal of the form: 
n, text 


Use the input to update the nth record of FIXED.ASC, which has 


fixed length records. Use random access and do not truncate 
the file. 


In MACRO-11, modify the task BLOCK1 or BLOCK2 so that it 
writes or displays two virtual blocks at'a time. 


(Optional) In MACRO-11, modify the task CSI so that’ the 
subroutines DISPLY and DELETE actually display and delete the 
file. Caution: DELET$ delete the highest version of a file 
if no version number is specified. (See Chapter 6 of the 
IAS/RSX I/O Operations Reference Manual for information about 


the routines GCML and CSI.) 
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File Control Services 


SOLUTION 


*TITLE CRESEQ 
*IQENT /017 
*ENABL LC 


File LEX10O1.MAC 
Modified to Freced each record with AAAA 
CRESEQ creates a file VART.ASC. It reads 
records from Tits and elaces them in the file. 
A “Z terminates ineut and closes the file. 
Assemble and task-hbuild instructions? 
MACRO/LIST LE3CLs LIPROGMACS/LIBRARY y devi Cufdd 


~SCRESEQ 
LINK/MAF CRESEQ»sL E301» LIFROGSUBS/LIBRARY 


*MCALL EXSTS$CyQIOWSC sQITOWS sDIRGS § Sustem macros 
*MCALL FSRSZ$yeFOURBDFS»FOAT&AYFURCHAsFIOPSA ¢ 
*MCALL NMELAGYOPENSWY PUTS CLOSES ¢ 

*MCALL DTRERR:y TIOERRyFCSERR §& Surrlied macros 


FSRSZ$ 1 + 1 file for record I70 


Tefine file descrirtor block for VART.ASC 


FOR? FOBOF $ Allocate the FIER 
FOAT$A K.-VARySFOL.CR Variable length records, 
Listing ~ implied 
carriage returns line 
feed 


FNAME NMBLK& VART* ASC 


a 
, 


RUFF $ *ASCIT /AAAA 


IN 
I0 


Seauential access and 
record I/O by 
defaults BUFF is 
user record buffer 

Use LUN 1l» file spec 
at FNAME 

"VARI.ASC" 


FOIRCSA » BUFF 


FIOFSA Ly» »FNAME 


“a> “Rh “SP SP “SP “EP Cr ‘E> “Sh “EP “HD “ED 


Local Data 
USER RECORD RUFFER 
BUF? .BLKE 80, 
ST? +BLKW 2 


‘S> “@> c> 


I/O STATUS BLOCK 


*LIST REX 
+EVEN 


*ENABL LSE 
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File Control Services 


SOLUTION 


FROGRAM CRESEQ '!CREATE FILE SEQUENTIALLY 
FILE LEX101.FTN 
Modified to rrecede each record with AAAA 1IEX 


This task creates a file of VARI.ASC of 
variable-length records using seauential record access. 
The records are inreut from the terminal and coried to 


the file, The rrocess stores when the orerator tyres 
CTRL/Z at the terminal. 


BYTE BUFF (84) »INBUF (80) PIEX 
EQUIVALENCE (CBUFF CS)» INBUF C1) ) 1ItEX 
INTEGER LEN 

DATA BUFF C1)» BUFF C2)» RUFF COS) » RUFF C4) | 

1 S°A% 9A’ AS CASS 


OPEN FILE 


Nefault access is seauential 


Tefsault is formatted I/0 for seauential files 


OFEN CUNT T=LyNAME=’VART.ASC’ » TYPFE=’NEW? s 
1 CARRIAGECONTROL=‘LIST?) 
TYPE Ky “TYPE IN TEXT» TERMINATE EACH RECORD 
1 WITH A CARRIAGE RETURN’ 
TYPE Xy “TERMINATE INFUT WITH A CTRL/Z’ 
Loor 
READ (S»s1l1isEND=100) LEN» INBUF ! Read record!!EX 
FORMAT (Q*80A1) 
LEN = LEN+4 ! Add 4 for A’s 
Plex 
WRITE (i912) (CBRUFFCI)sT=1»LEN) ! Write record 
FORMAT (80A1) ! to file 
GO TO 10 
Close file and exit 
¢) CLOSE CUNTT=1) 
CALL EXIT 
ENT 
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DITROK ? 


OKTO? 


EXIT: 


a 


y Error 
ERR13 
ERR2? 
ERR3? 


To: 


FINSET: 


SHOERR + 


RQTOWSC 


BCC 
MOV 
MOV 
BR 


TSTE 
BGT 
CMFR 
BEQ 
MOVE 


MOV 
MOV 
MOV 
BR 


MOV 
FUT 
BR 


CLOSES 
BCS 
EXST$C 


File Control Services 


SOLUTION 


IO.RVEvySe1»*sIOST 


DIROK 
#EFIQIOrR1 
#$0SWsR2 
SHOERR 


IOST 
OKIO 
#IE.EQF»TOST 
EXIT 


IOST sr RO 


RO» ARG 
¥#ARGsR2 
¥EFDQTIOsR1 
SHOERR 


IOST+29R1 
#F0RsysRLirsERR2 
104 


#F0R 
ERRS 
EX#SUC 


Frocessing 


TSTE 


REQ 
MOV 


BR 
MOV 


MOVE 


MOV 
MOV 


MOV 
CALL 
MOV 
DIRS 
CLOSES 
EXST$C 
»END 


F.-ERR4+1 (RO) 


IO 
#EFCOIR:R1 


FINSET 
EF CSTOsR1 


F-ERRCRO) sRO 
RO» ARG 
¥ARG?R2 


#OBRUFF »RO 
$E0IMSG 


RivsPRINT+Q. TOPL+ 


FP RINT 
#F 0B 
EX$ERK 
START 
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“a> “E> “Cm E> “ED “E> “AD WP Sr E> “EP “> “Gr EP “EP “E> “E> “ED GD “OD EP E 


a> “Sr cd 


Gr <a> er PJ “er a> er “Gr ar “Gr “ar “Gr “ED “Er er “a> “ar “E> 


y<BUFF *80.25 Read 2 
line from TI? 
Branch om Directive ok 
Set ur for $EIMSG 
Branch to show error 
and exit 
Check. for 
Branch if I/0 ok 
Check for EOF 
If EQs close and exit 
I/O status is sisn 
extended and erlaced 
im argument block 
for #$E0MSG call 
Set ur for $ENMSG call 


I/O error 


Kranch to show error 
and exit 

Length of record to R1 
Write next record 

Get next record 


Close file 


Branch on 
Exit with 


FCS error 
status of 1 


Lirective error or I/0 
error 
Rranch om I/O error 
Set ur for $EDMSG, 
directive error 
Rranch to finish setur 
Set ur for $E0UMSGer I/0 
error 
FCS error code 
is sign extended and 
relaced im ars block. 
$EDMSG arsdument block 
OQuteut buffer 
Format error messase 
§ Size of messase 
Frint error message 
Close file 
Exit with status of 2 


SON BW AD Gh 


10 


+ 


from 


“a> “Gb “8s ‘ar “E> sar “a> ‘Em “em sem 


RSTZ 

IOST? 
PRINT? 
BUFF ¢ 
ORUFF 3 


ARG $ 


EFDQIO: 
EFIQIO? 
EFCOIR? 
EFCSIO? 


“a> 


FOES 


FILE: 


TI 


TITLE 
¢ ILDENT 
+ENABL 


Modified to 
imeut from 


*MCALL 


*MCALL 
*MCALL. 


*MCALL 
+MCALL. 


+NLIST 
= 30, 
+ BLKW 
QLIOWS 
+ RLKE 
+ BLAKE 


*BLRW 

*ASCIZ 
*+ASCIZ 
*ASCIZ 
*ASCIZ 


»EVEN 
»LIST 


FSRSZ$ 


FOBDF S$ 


FIRCSA 
FOAT$A 


FLOF SA 
NMBLKS 


File Control Services 


SOLUTION 


CREF XA 
/O1/ 
EC > Enable lower case 


File LEX103.MAC 


use FCS instead of QI0’s to set #sEX 
TI3 y9EX 


CREFXA orenms FIXED.ASC for writer ineuts records 
and euts them seauentisally to the file. 


A “xz terminates ineut and closes the file. 


EXST8C sQTOWSC » QTOWS eS NIRS 


FSRSZ$ »F URBDF S$ » NMBLKS 


FIIRCSAsFIUAT$Ars FOF SA 
OPENSW»GET&sFUT$» CLOSES 
OFENSR 
REX -§ Surrress ASCII 
y Record size (bytes) 
2 § QIO status block 
TO.WVBy Solve» QKRUFF rO0%40> 
RSIZ + User record buffer 
80. + Outeut buffer for 
y error messades 
1 > Ardument block for 
> $EDMSG 


/TQIRECTIVE ERROR ON QIG. ERROR CODE = 4£N.7 
?7I/0 ERROR ON QIO. ERROR CODE = “0.7 

/FCS DIRECTIVE ERROR. ERROR CODE = ZD./ 
?FCS I70 ERROR CONE. ERROR CONE = “40.7 


BEX > Show offsets 


2 5 2 files for record I/0 
99 EX 


> File descrirtor block. 
5 


y RUFF s RSIZ User huffer and size 
RFIXsFO.CResRSIZ ¢ Fixed lensth recordsys 


> imelied <CRO<LFS 
lysFILE sy use LUN 1 
FIXED»ASC ¢ FIXED.ASC 
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98 
99 
100 
101 


102 


103 
104 
105 
106 


107 
108 


109 
110 
1ii 
1i2 
113 
114 
115 
116 
117 
118 
119 
120 
121 


¢ Error 
ERR1? 
ERR23 
ERRS3 
ERR 4 3 


DNIRERR $ 


I0O3 


FINSET! 


SHOERR: 


File Control Services 


SOLUTION 


Processing 


TST 


BER 
MOV 


BR 
MOV 


MOVE 
MOV 
MOV 


MOV 
CALL 
MOV 
DIRS 
CLOSE $ 
CLOSES 
EXST#C 
*END 


F,ERR+1 (RO) 


10 


#EF CHIR R1 


FINSET 


#EFCSTIOvR1 


F,ERRCRO) »RO 


ROvARG 
#ARGrR2 


#OBRUFF ¥ RO 


$E0MSG 


RivsPRINT+Q. TOPL+ 


FP RINT 
$F 08 
$F OKT 
EX#ERR 
START 
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Me 1p cd ae hy ser “er cer scr “ar ser ser er en “c> “cm “@> “em cer 


Set 


Ytirective error aor 1/0 
error . 

Kranch om I/0 error 

ur for $EIIMSG» 3¢3EX 
directive error 

Branch to finish setur 


Set ur for $E0MSG:e [70 
error 
FCS error code 

is sign extended and 


rFlaced in ars block 
tENMSG arsument block. 
Outreut buffer 

Format error message 
y+ Size of messade 
Print error messase 
Close file 

Close "file" at TI: 


37EX 
Exit with status of 2 


STARTS 


a 


§ Clear 
1043 


2O85 


GOO: 


» Close 
EXIT? 


ERR? 
ERR2¢ 
ERRS3 


IOERR $ 


returned in 


File Control Services 


SOLUTION 


Allow local symbols 
to cross Fsect 


boundaries 


Oren file for urdate 
(includes extend) 

time 

Record size 

R2 => buffer 

Move im @ blank, 

Continue until done 


yg BUFF e RSIZs es INE Ts LINE Ty % $2 

Fromet and set iriput, 

Check for “Z 

If “2: exit 

Set ur to convert 
record # to binary 


cheracter after #€ is 


wy") 

Is it a@ comma 
Branch on sood 
conversions 


IO.WUBe Seles» y SONVER » LONVER 2 40> 


iselay error messase 

Rranch om directive 
error 

Get next inrut 

Write record to outreut 
file 

Get next inrut 


and exit 


Close file 


IO-.WVERySelveeriBUFFL»yLENL 40> sWrite 


*ENABL LSE 3 
5 
; 
OFENSGU #F0 Bye ery 9 E RRL ; 
5 
buffer to all blanks each 
MOV $ERSTZeR1 3 
MOV #BUFF 9» R2 3 
MOVE #’ y CR204+ 3 
SOR Ri»20% 5 
QTOWS$C ITO.RFPRsSel»sTOSTs 
; 
CMF ER ¥IE.EQF »IOST 5 
BEQ EXIT ; 
MOV #BRUFF » RO ; 
CALL $CUTse ; 
Check for sood conversions 
R2 (it should be a 
CMF RB #’x9R2 ; 
BEQ GOOK 3 
5 
QIOWSsC 
; 
RCS ERK4 3 
3 
BR 104 5 
FLT $F #F0UByyesRisvsERRS ¢ 
5 
BR 104 ; 
filers disrlay messasey» 
CLOSES #FDRsERRS 5 
QTOWSC 
y 
BCS ERR4 ; 
EXITS ‘ 
CLOSES #FUIB»sERRS 5 
MOVE FLERRCRO) » RO 5 
MOV ROsITOST 5 
5 
MOV #IOST»R2 3 
TSTE F.-ERR+1 (RO) 3 
BEQ IOERR 5 
MOV #EMESDI»R1 3 
5 
BR COMME ¥ 
MOV #EMEST »R1 3 
3 
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messsde to orerator 
Branch om error 


Close file 

Move FCS error code. 
to arsument block 
for $E0NMSG 

Set ur for $E0MSG 

I/O or directive error 

BKranch on I/O error 

Set ur for dir error 
messasde 

Branch to common code 

Set ur for I/0 error 
message 


SOON DR CHD Whe 


File Control Services 


SOLUTION 


sTITLE BLOCK? 
*IQENT /0O1/7 
*ENABL LC ¢ Enable lower case 


+ 


File LEX105.MAC 39EX 
Modified to work on 2 virtual blocks at a time ¢FsEX 


KK-ELOCK2? fromets at TI? for @ virtual block number 
and then reads and disrlays that block of "BLOCK.ASC* 


“a> Ch “E> “E> “SD “EP SP? SD 


*MCALL QIOWSs DIRS» QIOWSS xEXST$S 
*MCALL FOBDIFS»sFORCSAy FORK SAsFDOPSA »NMEBLKS 
*MCALL FSRSZ$*OPENSR es READS yo WAITS» CLOSES 


*SERTTL MESSAGES 
*NLIST BEX 


CR = 15 

LF FF 12 , 

MES1 *ASCIT /FIRST VIRTUAL BLOCK? / 99 EX 
LENT =, ~ MEST 

MES23 «ASCII =CRe<LFo/HERE ARE THE BLOCKS 2 /2CR>=<LF> 
’ ¥9EX 
LENZ = = MES2 


MES3I3 .ASCIZ ‘1/0 ERROR FROM OFEN¢Re CONE = “0. ’ 
MES3N3 .ASCIZ /UIRECTIVE ERROR FROM OPENSRe CODE = “40.7 
MES4T3 .ASCIZ ’I/0 ERROR FROM REALS» CODE = Zh.’ 

MES403 .ASCIZ /DIRECTIVE ERROR FROM REALS» CODE - “lt. / 
MESSI3 .«ASCIZ ’I/0 ERROR FROM WAITS» CONE = “0. ’ 

MESSDOS .ASCIZ /DIRECTIVE ERROR FROM WAITS,» CODE = “0.7 
BUFF 3 +BLKE B80. » STORE RESFONSE HERE 


+LISt REX 
+E VEN 
*SETTL LOCAL STORAGE 


FSRSZ$ 0 + NO FSR BUFFER NEEDED 
y FOR BLOCK I/0 
FLIER $ FOBIIF $ FOR FOR INPUT FILE 


, 
FOURCSA FII.RWM y READ/WRITE MODE 
FORK$A BLOCK21024.»/19TOSBR ¢ EF ly BUFFER AliRy§ sEX 
» SIZE . 
» LUN i» DFNE 
y NAME IS BLOCK.ASC 


FLOP$A tye FILE 
FILE? NMBLK& KBLOCKsASC 


VEN? *WORT Orl 
BLOCK? .BLKW sie. 
IOSE; »BLAW 2 


DEFAULT VEN 
BLOCK BUFFER ye EX 
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File Control Services 


SOLUTION 
101 TOERR23 MOV #MES4I R41 § => I/O error message 4 
102 RR FCSERR ¢* Branch to common code 
103 ERRS3 
104 TSTE F.,ERR+1 (RO) ¢ I/O or directive error 
105 REQ IOERRS § Branch om I/0 error 
106 MOV ¥MESS0eR1 some Tir error message § 
107 BR FCSERR y Branch to common code 
108 IQOERR3S? MOV #MESSIeR1I y => I/O error message % 
109 > FALL INTO COMMON CODE 
110 FCSERR? 
1il MOVE F-ERR(CRO) »R2 5 Sidn extend error code 
112 MOV <2 TOSE > and move into TOSE 
113 MOV #EX$ERR YRS § Exit status in RS 
114 FORMAT 3 
115 MOV #IOSE»R2 § Set ur for $E0MSG 
116 MOV #BUFF »RO > 
117 CALL $EDMSG j 
118 QIOWSS #IO.WVBs €5e #1 y eye RUFF eo R1y #402 ¢ Disrelay 
119 5 MmMessase 
120 EXIT? 
121 CLOSES #FIE + Close the file 
122 EXST$S RS § Exit with status 
12: »ENTD START 
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File Control Services 


SOLUTION 
CSI¢ * Ttefine CSI offsets 
CBLK 3 »BLKE C.SIZE ¢ allocate CSI storage 
+EVEN 
NEMSK = 1 Tlelete mask. 
QIMSK = 2 [liselsay mask 


SWTBL ¢ Switch descrirtor table 
Yelete switch = DE 
Diselay switeh = [Ts 
also allow LIeNn 


End of switch table 


CSI$¢SW DE» DEMSK 
CSI¢SW DIT »sTIMSKys + » »NUM 


S> Gr > SP EP “EP “Od 


CSI#NI 

CSI$SV OCTAL*COPYs2»sNUMs Value N for /IItN is 
im octal and will 
be stored in COFY 

End of switch value 
table 


CSTINI 


> > Or “a> “E> 


9GET COMMAND! LINE BLOCK DEFINITIONS 
FSRSZ$ 3 s GCML uses record I/03 EX 


Fromet with ‘CSI’ on 
LUN & 

FOB for file to delete 
or dgisrlay, 

URE AT TRUFF: lensth 
132. 

LUN ly datseset 

descrirtor from CST 


GBLK3 GCMLES »CSIv*5 
FE? FOBIF $ 
FIRCSA -+TRUFFsi32. 


FUOFS$A tryCBLK+C. 0505 


“Sr a> “Ep “Br SP Cr “SP “Ed 


> NOTE: Need a 2nd FIRB for disrelay 


FOR for outeut to TI sex 
Var lensth records» #F7EX 


FBO? FIBIIF $ 
FLAT$A R.VARYFIL.CR 


3 

3 
; list format g9EX 
FOURCSA »TBUFF 132. § URB at TBUFFs lensths sEX 
; 132. > ¥EX 
FIOFSA 2s0SFTO 5 LUN 2s dataset ¥9EX 
¢ descriretor at DSFTO ¢sEX 
DSFTO? «WORD LOEVy DEY > Dataset descrirtor F#3EX 
+WORD 00 + for TIt. No UIC or #FEX 
»-WORD 00 5 mame needed. 79EX 
NEV? “ASCII STIt/ ; ¢ EX 
LIEV=,.-DEV ; 79 EX 

+EVEN 


JMPTBL? «WORD NONE sDELETE sDISPLY ¢ Jume table for. 
> Subroutines derending 
on Switches 
Value for N in /EITtN 


a 
? 
a 
, 


COFY!: WORD 4 


143 


CALL 
RETURN 


§ Commor 
3 


OUTMS: MOV 


MOV 
MOV 


CALL 
QLOWSS 
RETURN 


, 
, 
’ 
3 
DELETE? MOV 

CALL 


DELETS 
RETURN 


KXKXWILL BE DELETED 


File Control Services 


SOLUTION 


OUTMS 


disrelay message code ~- 
is not 8&8 common 


return Froint 


¥RUFF » RO 

#F MT oRI 

#0ATAsR2 

$EDMNSG 
#IO.WVB ye FS x tle es 


Subroutine DELETE 


#0ELTXT»TATA 
QUTMS 


#FUReERRD 


> [Tlelete error code 


ERRDY MOVE FLERRCRO) s RS > Extend sim om errors eEX 
MOV RS*sDATAt2 > and move to are block sEX 
MOV DEL TXT» DATA + Move rointer to deletes sEX 
5 text ¥9EX 
COMME: TSTE F.ERR+1 (RO) » Check for directive #F#EX 
> error or I/0 error #5EX 
REQ IOERR >’ Branch om I/0 error ##EX 
MOV #FMTERDYR1 + Get format string 9 ¥EX 
BR DISFER § Branch to common 9 ¥EX 
> error disrlay core #¢EX 
IOERR: MOV #FPMTERI+RiI + Get format strings 9x EX 
TISFERS MOV #BUFF sO y Set ur for $E0MSG 3 9EX 
MOV #0ATAsRK2 ; 33 EX 
CALL $E0MSG .y Edit message 9 9 EX 
MOV RivyTYPE44+Q,IOFL+2 3 Size of message 99 EX 
NIRS #TYFE4 §’ Disrlay message ¥ 3 EX 
EXIT$S § Exit ¥5EX 
y Subroutine DISFLY - Just display 3 message 
QISPLY? CALL $SAVAL ¢ Save all resisters 
MOV #0TTXTsDATA § Set ur for outeut of 
> mMessase 
CALL OUTMS § Branch to common 
§ gisrelay code 
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o> “> Br 


8 


> “ “> “> > “> 


KKKXWARNING - THE HIGHEST VERSION NUMBER OF THE FILE 
IF NO VERSION NUMBER 


G> “er “Gr @> “A> “CD 


Call OUTMS,: as a ¥9EX 
subroutine 99 EX 
Return $9 EX 
subroutine since it ¢FEX 
¥9 EX 
Set ur for SE0MSG 
Edit message 
<#BUFF yRiv#402 § DTiselay 
Return 

KX 

IS SPECIFIED xxx 


Set ur for outrut of 
message 

Call diselay 53EX 
subroutine 59 EX 
lielete file gFEX 
Return 


